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INTRODUZIONE 


Benvenuti alla lettura di questo libro, uno dei migliori 
mai scritti per il Commodore 84, contenente ben SO 
programmi pronti a partire. 

Non sono tutti giochi, e questo scommetto che creerà' del 
disappunto in qualcuno di voi, ma ve ne sono abbastanza da 
soddisfare anche i piu' esigenti. 

Ci sono programmi per programmatori evoluti, illustranti 
la manipolazione di Bit-s e Bytes e la gestione dei Bits 
nell'uso di AND e OR. 

Ci sono programmi per i principianti, e tra essi e' stato 
incluso un completo interprete PHOT, che permette la 
programmazione del 64 in un linguaggio ancora piu' 
semplice del BASIC. 

Ci sono programmi che illustrano e facilitano l'uso degli 
sprit-es, dei caratteri ridefiniti e del suono. 

Viene inoltre proposto il programma Cardbox, un completo 
ed esauriente Database, che da solo ha un valore 

commerciale superiore al prezzo di questa pubblicazione. 
Sempre per 1 principianti c'e' un breve capitolo che 
introduce le semplici ed elementari caratteristiche del 
Commodore 64 (ad esempio PEEK e POKE), e per gli 
stravaganti c'e' il mio capitolo preferito (Interludio) 
che non contiene nemmeno un programma sensato. 

Dopo tutto ciò' potreste pensare che la parte principale 
di questo libro sia costituita dai listati; i programmi 
sono importanti, e' chiaro, ma spero che non li digitiate 

ciecamente (come se ciò' fosse possibile) e vi troviate a 
pensare e a chiedervi come e perche' una routine esegue il 
suo lavoro. 

Lo scopo principale di questo libro e', non dimenticatelo, 
mostrarvi come agiscono ed operano le routine utilizzate, 
e tutto ciò' nel tentativo di insegnarvi ciò' che e' 
essenziale circa la programmazione di un computer. 

Ho aggiunto ad ogni programma delle note esplicative 
laddove le ritenevo necessarie, ed esse sono da leggere 
alla stessa stregua delle istruzioni. 

Se non vi piacciono i programmi, o una parte di essi, 
ritenetevi pure liberi di apportare tutte le modifiche che 
ritenete necessarie. 
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Per far ciò' dovrete leggere in modo critico i listati e 
le note di commento; in questo modo imparerete senza noia 
e facilmente il modo in cui i programmi dovevano essere 
scritti per soddisfare le vostre esigenze 

CINQUE PEZZI FACILI 


ASCII 

PEEK & POKE 
Colore dello sfondo 
Il gioco dei dadi 
Cursore e colore 


ASCII 


Questo e’ un semplicissimo quiz che giudicherà' la vostra 
conoscenza del Codice ASCII, implementato, come sapete, 
nel vostro Commodore 64 (se non avete assolutamente idea 
di quello che sto parlando, andate a guardare la tabella F 
del manuale in dotazione). 

Vengono usati tutti i caratteri che hanno un valore ASCII 
variante da 32 a 127; in questo modo sono eliminati tutti 
i tasti di controllo e molti, ma non tutti, caratteri 
grafici. 

Un'intera fila di caratteri selezionati verrà' 
visualizzata sullo schermo e voi dovrete indovinare 
l'appropriato valore ASCII. 

Sarete costretti a rispondere correttamente prima di 
passare alla successiva domanda. Non e' prevista una fine 
delproqramma (ne potrete uscire in qualsiasi momento, come 
inogni altro programma di questo libro, premendo 
semplicemente il tasto RUN/STOP), e dopo ogni vostra 
risposta corretta compariranno sul video si ai secondi che 
avrete impiegato che il numero dei tentativi effettuato. 
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N B.; se viene visualizzata una linea scura, la risposta 
e' 32 (barra spaziatrice). Non preoccupatevi se non 
riuscite subito a riconoscere i valori dei caratteri 
grafici (in ASCII dal 96 al 127), ma concentratevi sulla 
conoscenza di quelli alfa-numerici, specialmente quelli 
piu' comunemente usati, quali " (34), $ (36) e . (46). 


.Note del programma 

La linea 10, che non sembra avere una qualche importanza, 
ha invece un ruolo essenziale, come vi sara' spiegato 
Piu'avanti nel Gioco dei dadi. 

Le linee dalla 70 alla 150 sono un esempio di come si 
simula da programma una funzione quale INPUT. 

La sostanziale differenza dall'uso del semplice INPUT 
consiste nella possibilità' di poter calcolare, grazie 
all'orologio del 64, il tempo di attesa della risposta. 

Ma non e' tutto: digitando la seguente linea di programma: 

75 NH=122 : NL=S2 : GOSUB 160® 

potrete aggiungere un fastidioso rumore di sottofondo che 
vi rammenterà' l'urgenza della risposta (un ulteriore ^e 
pratica applicazione di questa routine "costruita", 
sebbene non utilizzabile in questo tipo di programma-quiz, 
consiste nella creazione di un valore massimo di tentativi 
per la variabile richiesta, e questo "tetto" deve essere 
considerato dal programma se il giocatore decide di non 
rispettare un predeterminato limite di tempo). 

Le linee SO e 90 costituiscono la parte principale della 
routine "costruita", che tiene conto del tasto RETURN 
(CHR$13), unico modo per uscire dal loop, e del tasto 
DELETE (CHR$ 20) per la correzione dell'errore. 

TI$ e' l'orologio interno reale del Commodore 64, di cui 
si parlerà' in maniera piu' estesa nel terzo capitolo. 




5 REM RRG. «1 — RS 

10 X=RHD<-TI> 

20 PDKE53280 5 ROKE53 

> > CHRX < 1 •‘4 *4 > 

30 PRIHT"«QURLE E' IL 


C I I x x ♦ 


;e 1 , 6 : RR I MXCHRX «C 1 -4 7* 
COLI ICE Fise I I PER : — 


C Fi* , L — 


RR I MX 


40 X=INT<RHDa)ì«96>+32 

se PR I MT FOR,T = 0TO 1 3 : RR I NTCHRt < X > ; CMR* < 32 

>J : NEXT 

66 XI*="000000" : F=1700:S=1 
7*0 GEX I * 

S© IFI* = CHRt< 13>XHEM200 

S>0 IFIX=CHRX<20> RHDL>0THENflt = LEFT* c FIX . L — 
1 = GOXO 1 20 

100 I F I1C ‘'0"0R I *>"S I "THEN70 
110 FlX = FlX-l- I X 

120 RRI M X C M R X < 1 3 > RRIMX - RRIMX : RRIMX 
1 30 RR I NXXRB < 1 S > FIX : " 

1*4© L = LEHCR1 > 

15© 00X670 

200 R^VFILCfll) 

210 IFR-XTHEN300 

220 MH=IMX (F/256) : M L = F— NH*256 : OOSUB1000 
230 E = E-*-200 : IFF>13000XMEMF=1700 
2*40 S = S+1 
250 F|X = ■■ " 

260 130X0120 

300 XX = XIX 

31 0 X«3600*VRL < LEFX X < XXi 2? >+60#VRLO1IDXf 

TX > 3 ^ 2 > > +VflL CRIGHXX< X X . 2 > > 

330 RR I MX : RR I MX = RR I MX : RR I MX : RR I MX ” rìW=? I SRO 

SXR E S Fi XX Fi IM"X"SECOMBI" 

3-40 RR I MX : RR I MX " E " S " XENTRX IVI"; 

350 I F©=* 1 XHEMRR I MX " liO " ; 

360 RRIMX:RRIMX:PRIMX"WGIOCHI RNCORR CS 
X N > 1 * 

370 GEXIX I F I X=»= " S " XMEMRUM20 
300 IFI$<>"M"XHEN370 
330 E M Li 

1000 ROKE5423GL 15 
1010 ROKE54277..15 

1020 ROKE54278 * 15 

1030 ROK E5*4 273 .. MM 
10-40 ROKE54272 .. ML 

1050 POKE5427633 

1060 FORX=1XO10© ME X X 
1000 ROKE5*427©^0 

1030 POKE54277> 0 

1100 POKE54278,0 

1110 REXURM 


.PEEK & POKE 

Non sarebbe bello se l'unico codice di valori 
riconosciutodal Commodore 64 fosse quello ASCII? 

Purtroppo ogni carattere, oltre ad avere un valore ASCII 
possiede anche un valore nel codice PEEK e POKE (per 
saperne di piu'., riguardatevi la tabella E del manuale 
d'uso in dotazione). 
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Il codice PEEK e POKE assume gli stessi valori di quello 
ASCII dal 32 al 63, ma per il resto sono completamente 
differenti. Inoltre i valori PEEK e POKE dal l2b‘ al 255 
rappresentano l’inverso dei caratteri dallo O al 127 fi 
caratteri inversi non sono contemplati nell'uso del set 
deì caratteri ASCII). 

Questo programma mette alla prova la vostra conoscenza del 
codice PEEK e POKE, e include diverse raffinatezze non 
viste nel precedente programma. 

Un sinqolo esempio del carattere proposto e’ PoKEato sullo 
schermo ed e' circondato da un quadrato rosso, cosi' da 
rendervi possibile un facile riconoscimento anche di quei 
caratteri grafici che sono molto simili tra loro (con un 
po’ di pratica, naturalmente). 

Avete solo sei possibilità' di rispondere correttamente 
col qiusto valore prima che la giusta risposta compaia 
sullo schermo, e per ogni vostra risposta sbagliata 
vedrete il carattere corrispondente. 


Dato che il carattere sara' sempre rappresentato in nero 
(colore del simbolo) e bianco (colore dello sfondo) sara' 
particolarmente facile riconoscere i caratteri inversi, 
quelli per intenderci con un codice superiore a 127. 

N B. : come per il programma precedente, e' possibile 
passare dal set dei carattere Testo a quello dei caratteri 
grafici con. la semplice pressione dei tasti SH1FT ed il 
tasto Commodore. 

Alcuni codici PEEK e POKE ed alcuni ASCII vengono 
rappresentati nello stesso modo, altri invece nu. •.■ono 
spiacente se la cosa vi apparirà' piu' complessa di quella 
che e' in realta' ma se non lo sapete il Commodore 64 
possiede ben QUATTRO set di caratteri differenti che voi 
dovrete imparare! 


.Note del programma 

Il POKEare i caratteri sullo schermo e' una tecnica 
ampiamente usata in questo libro e questa e' una delle 
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ragioni per le quali e' importante imparare l'uso di 
questi valori. 


La prima versione del Commodore 64 costringeva chi voleva 
visualizzare un carattere sullo schermo ad usare oltre al 
valore del l'indirizzo (variante da 1024 a 2623) anche il 
valore del colore-sfondo (da 55296 a 56295) 

Nelle versioni piu* _ recenti non si e : piu' riscontrata 
qju=.a riecesstta , il listato prevede questa eventualità' 
alle linee 66, 76 e 136. 


Le due importanti formule (ma vi ricordo, per qualcuno di 
voi solo una, la prima) sono; 


Indirizzo di schermo: 1624 + X + 46 Y 
(dove X e' la colonna verticale variante da 6 
e la linea orizzontale da 6 a 24) e 


a 39, e Y 


Indirizzo Colore-video = Indir.di schermo + 54272 


= REM *** RRG.W2 - REEK & POK'E *** 

10 POKE5329 *'T rrin^hr^c^ 

20 X = R M D < — TI > 

X= “ I MT < RMD < 1 > > 

^0_RRIMT"QURL_E E' IL CODICE REEKXROKE RE 
L OR J * =0TO2 : FORK-0TO2 

S0 ROKE 1 203 + J + 40»,k - 1 <S0 : ROKESS^Sh- J + 40*K , 


7»0 
S0 
s >0 
1 00 
110 
MRR 
1 20 
1 30 
1-40 
1 =50 
' "X 
1 00 
> " 

1 7-0 
1 00 


^^r J : ROKE 1 244 ^ V : ROK R“q w « « 
s2^ÌT 1TOS : MEXT =le ' ® 

. Mkm > I!?~I?§§§s< s —<> s H$avws 
f ÉSiSsi™"""=ssisiasisiis?s“ 1 ~ 

RRIMX:RRIMT:RRIMX”IL CODICE ESRTTO E 


RRINT : PRINT"VUOI 


GIOCARE 0MCORR 


< SXM 


' 1 " S THENRUN 

1 " M " XMEM 170 


F'OKE 53281; Colore dello sfondo 


Sin dal 
53286 e 
questo 


le prime ore d'uso del vostro Computer, 
-■2281 dovranno imprimersi nella vostra 
perche tramite loro potrete 


i numeri 
memoria; 
cambiare 



rispettivamente il colore del bordo-video e dello sfondo. 

I valori da inserire tramite il comando POKE sono listati 
in fondo a questa pagina, e dovranno essere al piu' presto 
memorizzati da voi. 

Per aiutare il processo di apprendimento, ecco qui un 
altro test; il bordo assume un colore casuale grazie alla 
funzione RANDOM e voi dovrete nel piu' breve tempo 
possibile premere il valore corrispondente in modo tale da 
colorare allo stesso modo anche lo sfondo. 

Per aumentare un po' la difficolta' di questo esercizio 
ho pensato bene di usare ii sistema esadecimale (ad 
esempio i numeri da. 10 a. 15 corrispondono alle lettere 
dalla A alla F), ed in questo modo, se il bordo sara' blu 
dovrete premere il tasto E affinché' anche lo sfondo 
diventi blu. 

Qualsiasi tasto voi premiate, limitatamente alle lettere 
riconosciute dal sistema esadecimale, il vostro video 
cambierà' colore fino a quando, in una corsa contro il 
tempo, non inserirete qli esatti venti valori utili a 
terminare il gioco. 


.Note del programma 

Penso che questa prova sia piu' facile delle due 

precedenti (ci sono infatti solo sedici valori da 

ricordare, contro un totale di 1024 locazioni di carattere 
diverse), cosi' la linea 120 conterrà' solo la funzione 
VAL(TI$> per determinare il tempo in secondi, determinato 
nel momento in cui viene premuto il tasto esatto. 

Non dovete farvi ingannare dal valore di TI$! infatti se 

dovesse comparire TI$= 000100, significherà' che avrete 

impiegato un minuto (e non cento secondi) per azzeccare il 
colore esatto. 

Se riuscite a premere piu'di 16 tasti per arrivare alla 
soluzione, e' chiaro che vi meritereste una penalità'! 
Comunque ricordatevi che l'uso di VAL<.TI$) non e' il modo 
esatto per calcolare il tempo in secondi (per vedere il 
modo piu' giusto, andate a riguardare il programma sui 
valori ASCII). 
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CODICE DEI COLORI 


Decimale 

0 

I 


-J 

4 

5 

c 

7 

8 
9 

10 

11 
12 

13 

14 

15 


Esadecimale 

0 

1 

9 

X. 

3 

4 

5 

6 
7 

Cj 

9 

A 

B 

C 

D 

E 

F 


Colore 

Nero 

Bianco 

Rosso 

Azzurro 

Porpora 

Verde 

Blu 

Giallo 

Arancione 

Marrone 


CHR$(come confronto) 
144 
5 

28 

159 

156 

30 

31 
158 
129 
149 


Rosso chiaro 150 
Griqio 151 
Grigio medio 152 
Verde chiaro 153 
Blu chiaro 154 
Grigiochia.ro 155 


5 R E M *** PRO. *4 3 — POKE 5333 1 WWm 

1 © POKE3328 1 > 1 : RR I MXCHR* < 147? CHR* < 1 -4^4 > •• 
INDOVINO I L_ NUMERO DEL BORDO C 1 — fiXR > 

Z-© X = RHD(—TI > : DIMT<2©> 

2S I NPUT ■■ Mt*jlJRNTE <3 I OCRTE " ; fl : RR I MT —3 
36 ROR.J=lTOR 

4© >'■= I MT < RMD < 1 > * 1 «S > : I FX = VTHEN40 

50 IFJ=1RNDX=1THEN40 
e© ROKET53280.X 

7*© TI*="000000" 

S© OET I *: - IFI*C ,, 0"ORI*>"F"THEN80 

S"0 R = RSC< I*>-48 : IFR>16THENR = R-7 

1 O© POKE532S 1 .. Ft 

11© IFROXTHEN80 

1 Z-'O T = T + VRL <TI*:> = T 

130 G = 5 I R X = 1 THENC*= 1 -=4 *4 

1-4© RR I M T C: H R ^ < 1 4r > C H R < O > 

1 -■© FORK-1TOJ : RRIMTK.. "ESRTTO I M " T C K > .. SE 
COHD I ” : MElXT 

160 RORK=1TO1©O©:MEXTK 
170 V==X 
13© HEXTJ 


.Il qioco dei dadi 

Voi sapete, naturalmente, che la funzione RND del 
Commodore 64 produce un numero casuale ed e' spesso usata 
nella forma N=INT<.RND(! ))$X)+1 per generare un numero 
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intero casuale da 1 a X. Ma ciò’ e’ vero solo se diamo una 
interpretazione libera alla parola "casuale". Infatti 
quello che fa la funzione RNO e’ venerare una lunqa ma 
predefinita serie di valori che non hanno apparente 
relazione tra di loro. In altre parole, i numeri sembrano 
casuali, ma senoi conosciamo l'esatta posizione 
.di’interno della sequenza l'intera serie e' prevedibile. 

Quando voi accendete il vostro Commodore 64 il punto di 
partenza della sequenza assume un determinato valore ila 
••TESSA posizione ogni volta!), cosi' ogni volta che 
chiameremo in causa la funzione RNO verrà' generato un 
numero che potrà' essere riprodotto spegnendo e 
riaccendendo il computer. 

11 "gioco dei dadi" utilizza questa caratteristica per 
presentare una apparentemente equa competizione tra due 
giocatori che si sfidano in dieci turni, proclamando 
vincitore colui che alla fine detiene il punteggio piu’ 
■dto. Il programma e' prevedibile anche se giusto! provate 
infatti a digitare il listato ed a salvarlo su nastro o su 
disco, e spegnete e riaccendete il computer prima di 
ricaricare il programma) se voi prenderete nota dei valori 
che appariranno ogni volta sullo schermo stabilirete la 
■oquenza che il computer rispetta. 

Provate tutte le volte che volete (spegnendo, riaccendendo 
il computer e ricaricando il proqramma) se non ci credete! 
la serie sara' sempre identica, (a questo proposito,quando 
giocherete contro qualche vostro amico, vi prego di 
ricordarvi di mandarmi, presso il mio editore, il 
■Ielle vincite... ) 


.Note del programma 

E' facile capire guanto sia ingiusto questo gioco dei 
dadi e quali svantaggi presenti l'uso della funzione RND 
quando viene usata in questo tipo di giochi. 

Fortunatamente questo ostacolo può' essere facilmente 
superato. Il numero 1 nell'espressione RND sopra 
menzionata (e alla linea 100 del programma) e' conosciuto 
come "valore fantoccio", perche' l'espressione RND deve 
essere seguita da un numero tra parentesi (un 
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valore e' irrilevante, basta che 


"argomento"), ma il suo 
sia POSITIVO. 

Comunque, se l'argomento e' NEGATIVO non e’ piu' un valore 
fantoccio. Infatti un argomento NEGATIVO viene usato per 
ri-iniziali zzare la sequenza dei numeri RANDOM. 

Ad esempio, essa riporta il numero casuale ad uno 
specifico valore prè-determinato. Per far ciò', provate a 
digitare la seguente linea: 

5 X=RND(-1) 

Il gioco rimarra' "ingiusto" ma almeno non dovrete 
spegnere e riaccendere il computer per ri-inizializzare il 
gioco. 

Tutto ciò' non risolve il nostro problema, naturalmente 
il sapere che e' possibile "resettare" la sequenza dei 
numeri casuali usando un argomento negativo ci permette di 
farlo tramite un valore sconosciuto. Convenzionalmente, 
e per fare le cose bene, il migliore modo per fare ciò' e' 
usare la variabile TI propria del Commodore. 

TI e' una variabile numerica dipendente dal valore TI$ 
delclock interno al computer, che si incrementa di 
un'unita' ogni sessantesimo di minuto dal momento in cui 
l'apparecchio viene acceso. E' umanamente impossibile per 
qualsiasi essere prevedere il valore di TI in un dato 
momento, 1 cosi' digitiamo 

5 X=RND(-TI ) 

5 REM RRG . — OXO CO DRD I «Iti* 

1 0 ROKE33280 . 13 POKES328 1 .. 13 PRI MTCHR* < 1 
«4-7' > 1 CHR* < 1 > } 

■2.0 FOR J= 1 TQ8 : B*“B* + CHR*<32> : l_* — l_*-«-CHR* C 2 
26>:MEXT 

30 PRINT"GIOCRT. 1 , ” O I OCBT .2” 

-40 ROR J— 1 TO 1 0 : RORR — 0TO 1 
S0 PRINTCHR#a9>;CHR*U7>; 

60 PRINTTRB<20i(<P);L*;CHR*a43) 

-T0 PR I NTTFIB ( 20#RBS < P“0 ? > j i 

80 RRIMTCHR*<19):FORK=0TOJ:RRIMTCHR*<175 
i ■■ MEXT 

30 OETI»: I R I THEM30 

1 00 X=IMT<RMD<1)*6)+l 
110 RRIMXTRB<20*P+2 > 1X 
120 T <R>=T <R>-«-X 

130 RRIMTCHR* <13 9= RORK—1T07 : RRIMTCHR» < 17 
>:MEXT 



I IO PRINTTRBC 1 > "TOTRL"TRB<2 1 > "TOTRLE" 

I -.11 F’R I HTTRB C 20#P + 2 > > T < R > 

! <11 FQRK® 1 TOr5ei0 MEXT 
I . O MEXTP .. -J 

i..o PRINT:PRINT:PRINT"FINE DEL GIOCO” 
i 'O I ET <r 0 :> =T < 1 > THENPR I NT " PRR I " : EMÙ 

oo PRINT"IL G I OCRT . ” < T < 0 > >T < 1 > > -*-2 ” V I MCE 


.Cursore e colore 

Dopo una breve ed interessante escursione nel mondo del 
mioco d'azzardo tramite computer, torniamo ad un argomento 
(he abbiamo già' trattato: la gestione di PEEK e POKE 
sullo schermo. 

Questo e' un programma che aiuta visivamente il 
programmatore (ci saranno altri esempi nel capitolo sette) 
e che illustra quali indirizzi di schermo e di 
codice-colore possono essere utilizzati. Avete a 
■ lisposizione un cursore blu che dovrete muovere lungo 
tutto lo schermo grazie al consueto uso dei tasti di 
gestione-cursore (nella tastiera in basso a destra). Ad 
ogni movimento comparirà' il valore corrispondente 
all'indirizzo interessato nell'angolo in alto a sinistra 
dello schermo. 

A rendere il programma piu' completo viene inoltre 
illustrato l'uso dei comandi PRINTCHRf e P0KE646 che 
permettono di cambiare il colore del carattere 
visualizzato. 

11 colore del testo sullo schermo può' essere cambiato nel 
solito modo (usando i numeri da 1 a 8 contemporaneamente 
al tasto CTRL o al tasto Commodore). Non appena cambierete 
i colori del testo compariranno sul video sia i valori in 
codice ASCII (da usare nella forma PRINT CHR$ Cnum.)) sia 
il numero del codice—colore (variante da @ a 15). 

N B. : dato che il colore dello sfondo in questo programma 
e’ bianco, premendo i tasti CTRL+2 il testo risulterà' 
invisibile. 
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N'iti- ili I l'i imi .intuì. 


La POKE 646 non e' un'evipri*'. iionr i vi m*> 11 • • I .(miliare. 
Questo indirizzo contieni 1 il » » 1 1 « • • • 11 ■ i. « mi •< i del 

colore-carattere, cosi' comi 1 rimili i . 1 o il colore 
del bordo e 53281 il coloro do Ilo •dmidi 

Il programmatore e’ libero di .io il ine .■ tu ,to scopo 
gli conviene usare la Pulì 646 <> il (om.ind.. IK1NT CHR$ 
seguito dal codice ASCII, o .ini or > ).i .i-mi Ilio parola 
PRINT seguita da un numero » il Ledi. ( TRI o quello 
Commodore. 


Le seguenti tre espressioni otton-iorm l'offetto di 
cambiare il colore di stampo in rov.n: 

POKE 646,2 

PRINT CHR$ (28) 

PRINT" [CTRL e il tasto 31" 

Generalmente, cosi' come nella stesura dei listati di 
questo libro, io preferisco usare il secondo metodo, ma. la. 
scelta e' tutta vostra. 

La PEEK (653) alla linea. 100 si riferisco .il 1 1 indirizzo 
contenente un "flag" che ìndica lo stato dei tasti CTRL, 
SHIFT e Commodo r e 


PEEK (653) = 1 significa che il tasto SH1I I e' premuto 
PEEK (653) = 2 significa che il tasto Comm e' premuto 
PEEK (653) = 4 significa che il tasto CTRL e 1 premuto 

E' da notare che il programma si accorge che state 
premendo uno di questi tasti abbinati ad un numero per 
cambiare il colore. La pressione di altri tasti lascia 
indifferente il programma,’ il tasto Commodore visualizza i 
caratteri semi-grafici presenti sulla sinistra di ogni 
tasto, ed il tasto CTRL produce una varietà' di effetti 
diversi tra i quali anche quelli provocati dai 
tasti-cursore. Se sullo schermo compariranno dei caratteri 
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non desiderati, essi potranno facilmente essere cancellati 
col successivo movimento del cursore o cambiando il colore 
di stampa (dalla linea 5#, nella quale il comando 
CHR$(147) pulisce completamente lo schermo). 


4*3 — CURSORE 

» : POKE532Q 1 •> 1 
-1024 : D-34272 


COLORE *>>**• 


3 REM *<*♦* PRO. 

10 POKE332S0 J i 
20 R=“30 = C — 3 : S = 

Ì0 PRINTCHR* <147) • PR I NT •• POS I Z I OME SCHERM 
O"^"POSIZIONE COLORE" 

^0 PRIHT®PRINT"PRINT COLORE <POKEV-"<CH 

_ _ 

00 PRIMXPEEK<G4<S:> R __ _ 

■ j0 F»OKES .. PEEK < S > 1 2S : POKES-ED .. G 

110 I FP-20RP-4THEHPR I NT I * J : * < ,S ' + * S > 

r-TNP K J I—' mm p g ) : R ** S C C I ♦ ? * G O T O 3 0 

< I*-CHR*< 17) )4<S<1983) )-40*< 

ì4S“5^2t^nièSéS?iSf>à?*«0a 3 > c=h 

T:0 1 N:H::e*CO*-CHR,<17>>*<S<19e4>,-40*< 

< I4-CHP* < 143) > *« < S> 1 063 > > 

130 IFICHR*<13>XHENM—1024 
160 IFS"HXHEN100 
170 S —M : 00X0350 


Giocaci Barn 


Comunità' 

Campo minato 
Chiudi la scatola 
Batticuore 
Catturato! 


.Comunità' 

Avrete senz'altro sentito parlare di quei giochi che 
vengono definiti di "simulazione", dove grazie al computer 
si riesce ad essere ora regnanti di uno sterminato impero, 
ora capitani di un vascello intergalattico, ora al comando 
di una grande industria. In questo gioco io vi ho dato un 








ruolo piu' modesto! siete a capo di una comunità' aqricola 
auto-sufficiente, avete quattro amici, un acre di terra e 
un sacco di qrano. Da queste umili origini dovete cercare 
di sviluppare la vostra comunità' fino ad arrivare ad 
avere una popolazione simile a quella di New York! 

Ogni anno dovrete decidere quanto grano usare per la 
semina e quanto come nutrimento, quanto venderne e quanto 
conservarne per il futuro. 

I parametri che vi aiuteranno nelle vostre decisioni sono 
i seguenti ; 

PIANTE: Ogni persona può' piantare fino a due sacchi di 
grano ogni anno. Ogni acre di terra può' contenere fino ad 
otto sacchi di semi. Se viene coltivato meno del 75% 
dell'acre, il 25% del terreno e' da considerarsi perso 
come punizione per la pigrizia dimostrata. Il raccolto 
ottenuto potrà' essere povero, discreto o ricco, 
permettendovi di ottenere fino a due, quattro o sei volte 
quello che avevate piantato in precedenza. 

CIBO; Ogni persona ha bisogno per nutrirsi di quattro 
sacchi di grano all'anno. Se voi provvederete a questo 
bisogno con una quantità' maggiore di quella necessaria, 
la popolazione si svilupperà' fino a consumare tutto il 
cibo in eccesso. Se invece fornirete meno cibo di quello 
richiesto la parte della comunità' che non riceverà' i 
quattro sacchi annuali morirà'; in questo caso verrete 
accusati di cattiva gestione e dovrete subire il giudizio 
di una giuria di dodici persone. Se la maggioranza voterà' 
per la vostra colpevolezza, (ad esempio 10 contro 2) temo 
che il gioco sia destinato ad una fine prematura ma se la 
giuria vi riterrà' non colpevole avrete a disposizione un 
altro anno per dimostrare le vostre qualità' di 
conduttore. 

VENDITA: Dato che la vostra e' una comunità' 
auto-sufficiente non avete problemi legati ai soldi, cosi' 
cambierete immediatamente tutto il grano che vi e' 
avanzato con dell'altra terra; sfortunatamente il valore 
del terreno non può' essere stabilito da voi, cosi' 
potreste ricevere sia 0 (si', zero!), sia 1, sia 2 acri di 



terra per ogni sacco di grano venduto. 

(N.B.: voi non potete perdere (come penalità') o 
guadagnare terreno (grazie alla vendita dei sacch.i di 
grano) nello stesso anno. Se avete coltivato poco non vi 
e' permesso di disporre del grano avanzato per ottenere 
altri acri). 

CONSERVAZIONE: Nessuna decisione e' importante guanto 
questa che vi permetterà' di assimilare il grano invece di 
piantarlo, di venderlo o di usarlo come cibo. 

Nei primi anni non vi potrete permettere il lusso di 
immagazzinare nemmeno un solo chicco di grano ma. se sotto 
la vostra direzione la comunità' diventerà' solida e 
prospera sarete in grado di decidere se rischiare di 
espandere troppo velocemente la comunità' o se risparmiare 
del grano in funzione dei possibili sviluppi futuri. 

Lo scopo ultimo del gioco consiste nel creare una 
comunità' nel modo piu' grande possibile in un arco di 
tempo di 25 anni; ma dato che non e' affatto semplice 
sopravvivere,un buon obbiettivo da perseguire e' quello 
di raggiungere i 25 anni di vita (ricordatevi che oltre a 
correre il rischio di essere giudicato colpevole per le 
vostre errate decisioni, rischiate anche di ridurre a zero 
la popolazione della vostra comunità', e ciò' significa, 
che sareste condannati anche voi a morte!). 


Poiché' il programma fa largo uso di testi e' facile 
capire ciò' che ad ogni punto succede semplicemente 
leggendo in modo critico il listato; e' per questo che ho 
riassunto le note del programma in una tabella che vi 
guidi attraverso i punti principali: 


Linee 10-30 
L i nee 100-180 
Linee 190-370 
Linee 500-640 
Linee 650-670 
Linee 710-740 
Linee 750-800 


Definizione iniziale della comunità' 

Fine dell'anno in corso 

Domande e risposte per l'anno sequente 

Decremento popolazione e processo 

Aumento della popolazione 

Diminuzione della terra a disposizione 

Acquisto di ulteriore terreno 



Linee 81 @-87@ Re.cco 1 to 

Linee l@@@-]@4@ Sub-routine: risposta nulla 
Linee 2@@0-2ì4@ Fine programma 


5 REM RRO-44S — COMUNI li< + 

1 0 R = 5 : REM POPOLRZIOMI MI I r '1-101 ME 

20 C=25=REM SRCCHI DI ORMI li i M DISEOS12- 

30 0=1 REM FIOR I DI "TER RI MO 1J I SF»OM IBILI 

40 X — RMD< — TI ~> 

100 3OSUE1020 

110 FRINTCHR*<5> > O O E T 5 147> 

1 20 RR I MT ” RNNO " > .. V 
130 RRIMTOMR*<149> 

140 RR I MT ■■ E0E0L02 I OME DELLO COMUNITÀ' 11 > R 

1 50 PRINT"HREfl DELLO COMUN I TO ' " ■ O " OCR I " 

160 REIUT”FORMITURO ORONO">C - " S O C C O I" 

1 20 RR: I MTCOE* C 1 2 > i CUF'* < 30 > ; COR* C 1 3 > i 

1 80 FORJ= 1 T040 i RR I NTCHR# < 1 32 > > MEXT : RR I M 

TOUR»: < 1 46 > 

130 V = V-*-l 

200 I FV:>25ORP= : 0THEH2000 

2 10 RR I NTCHR* < 1 -4<4 5 " ONNO " > > V 
220 RRINTCHR4<28> 

230 MOX=C:M=8#0 : IFM<MOXTHEMMOX=M 
240 M = 2*P : IFM<MOXTHENMOX = M 

250 PRINT"QUAHTI SOCCOI DI CROMO VUOI RI 

ROTORE” 

260 RRIMT”CMOX="MOX”>"I : IMRUTS 
220 IFS>MOXTHENGOSUB1000 : GOTO260 
230 C=C—S 
230 OR T = 4*P 

300 PRINT"QUOMTI SOMO PER CIBO” 

310 RRIMT"<ORT =”OF'T”>" i ■IMRUTR 
320 IRR>CTMEMGOSUB1000 GOTO310 
330 C=*=C_F 

340 RRIMT"E QUOMTI ME VUOI VEMDERE" 

350 RRIMT" <MOX="C" > " J : IMPUTO 
330 IRM>CTOEMGOSUB1000 : GOTO350 
320 C«=C — M 
=500 X— IMT < E X 4 — R > 

55 1 0 I FX>=0THEM650 

=520 ROKE53280, 0 : ROKE53281 -12 
=530 RR I MTCOR* < 1 44 > J COR* < 1 42 > 

540 D*="REESOMO” : IRX<—1TOEMD*=”RERSOME" 
550 RRIMT — Xi D* " MORTE" 

560 RRIMT 

520 IER=—XTOEMRRIMT"<L" IMTERO R0R0L02IO 
ME DEL COMUME DISTRUTTO>" G0T02100 

530 RR IMT "SE I OCCUSOTO DI MOL GOVERMO” 

530 RRIMTCOR#<5) 

600 RR I MT "IL VERDETTO E " " COR* < 23 > i ■ D-= I M 

TCRMDC: 1 >*13> ^ EOR J= 1TO500 : MEXT 

610 IRD<10TOEMRRIMTCOR*<158>"MOM "COR*<5 
> : ROKE5328 1 >10 

620 RRIMT"COLPEVOLE"COR*<5> i D":"12—D 
630 IRD>3TOEM2100 
340 G O T0200 

650 ROKE53280 .. 2 : ROKE532G 1 >10 

660 RRIMTCOR* f 5 5 COR* < 1 42 > 

620 RRIMT”R0R0L02IOME CRESCE DI"X 
200 R-P+X 

210 I ES> = OJ*6TOEM250 
220 I=IMT<0*25>X100 

230 RRIMT : RRIMTCOR*C 23 5 "OREO DIMIMUITO D 
I " I ” OCR: I " COR* C 5 > 


.'■*0 R = R—I 00X0© 1 0 

^30 I-INT<RND< 1 > *3 > : CX=-CMRX<2©>-*- ,, XRORRO 
RI_X I ■■ 

,'<£.& IFI = 1 XHEMCX—CMRX <31 > -t- " MED I " 

.'7»e> IRI=3XHEMCX = C:HRX< 1 5© >" DRSS I " 

,'00 RRIMX=RRIMX"I PREZZI DEl—l—R XERRR SOM 
O CX CHRX < S > 

.'30 I = M ** I : I FN>0XHENPR I MXCHRX <31 > " HUOVH X 
I RRR COHPRRXR " I •• ROR I ” CHRX < S > 


:00 
<<1© 
PO " 
R20 
030 
1 1-40 


R = R-*-I ___ 

I = IMX < RMD < 1 >*3> + l C*=CHR*<2S> + "ROVER 

IRI^SXHENC^^CHR^<31>+"MEDIO" 

I R I =3XHEMCX=CHRX < 1 SE: > " DUOMO " 

RR I MX < RR I MX ■■ 1 l_ RRCCOI— XO ERR * 1 C X ; CHRX 


< S > 

OSO I=2*S*I 

OSO RRIMX"ORRMO RRODOXXO"I"SRCCMI" 

«70 0=0-*-I 

oe© RRIMX : RR X MX : RR X MX 

090 RR I MX ” RREM I SSRRCESB PER UM RL-XRO RMM 
O " 

300 OEX I X : I R I XOCMRX < 32 > XMEM300 

310 00X0100 __ 

1 000 ROR J — 0XO 1 S = ROKES32E:0 .. -J - ROKES32© 1 1 S 

X MEXX 

I O 1 O RR I MXOMRX < 1 43 > CMRX < 1 -4S > 

«030 ROKES32S0.S 
t O30 ROKES32S1 , 13 

1 O-10 REXURM 

..>000 ROKE33280 .. 4 

3010 ROKES32S1.4 

_• 1 00 RR I MXCHRX < 1 SS > " COMUM . SORRR VV I SSUXR 
PER •' V— 1 " RMM I " 

3110 R RIMX RRIMX"VUOI OIOCRRE RMCORR3<S3 

M > " 

3130 OEXXX 

3 130 IR I X=> " S '■ XMEMRUM 

3 140 I R I XO " M *• XMEM2 1 30 


.Campo Minato 

Questo e' un semplice ma ingannevole gioco. A prima vista 
sembra richiedere solo prontezza di riflessi, ma in 
effetti occorre una discreta aqilita' mentale per vincere. 

L'obbiettivo del gioco e' far compiere ai vostri tre 
uomini 27 passi attraverso un campo minato usando il 
lancio di un dado per stabilire il numero di passi da 
compiere per ogni mossa. 

Tutte le mine sono chiaramente contraddistinte da un 
carattere grafico (il diamante) e a parte le due mine 
prossime alla fine, sono tutte ugualmente distanziate. 
Sebbene la fortuna giochi la sua parte, come in ogni gioco 
legato alla sorte, l'abilita' consiste nel determinare 




come l'uomo 5i debba muovere per sfruttare al meqlio oqni 
mossa. Nel gioco badate innanzitutto alla vostra posizione 
se non volete essere costretti in una situazione suicida. 

Gli omini sono colorati in viola, verde e blu e i tasti 
di controllo da usare sono quelli corrispondenti ai colori 
e cioè' i numeri 5, 6 e 7. 

Le linee rappresentano le zone di sicurezza mentre il 
quadrato simboleggia la casa di partenza. 


Note del programma 


In questo listato ho usato i caratteri grafici 
simboleggiati come in tastiera (vedi la linea 40>. E' una 
scelta assolutamente personale se usare direttamente i 
simboli grafici o i corrispondenti valori del codice ASCII 
abbinati a CHR$. 

Il programma usa degli Array bidimensionali per contenere 
le informazioni riguardanti ogni uomo. La prima dimensione 
si riferisce semplicemente al numero dell'uomo (varia da 1 
a 3, lo O non e' considerato), mentre la seconda 
dimensione ha due elementi, 0 che indica la posizio-ne 
dell'uomo e 1 che indica il suo stato (1= vivo: può' 
essere mosso, 4= morto o a casa: non può' essere mosso). 


5 REM RR G . CRMPO M IMI i I i i*** 

10 POKE53280 , 7 ^ POKE332P I . I 'I NTCHR$< 1 47” 

> j CHR* < 1 4 3 > 

20 S=1024 D=54272 

30 RR I NT swtwrww■ i CHR • • >- ■ 

40 EORJ«= 1 T07 : PR I NT ” ♦ " NI XT:RRINT”♦ - 

: REM CRRRTTERI 11 1 III i 

30 D I MR C 3 1 > E OR * — 1 * • i • I > • « ■ 0 > — 1 = R < -J 1 > — J 

e0 ROKES-*- 1 -»-4 0**« I | <■ O I . .1 I . IN- l-f40*.J, -JT3 : N 

EXT 

7^0 FOR 1 T O 1 “• I» • • • • Il • «.» > NEXT 

90 EOR-T— lliil - • I > • 1 • • • > Ili • 1 ”■ r' > : N E X T 

30 X=>RNr«< I I • 

100 X— I I I I ■ I--1 « * • - l -*•' *i 

110 R R I I I I " ^1 li H i V I " B# ^ X"PRSSO M J B 

; Il I I I II III I tilt ■ ■ I 

1 yo I I. | , i i *4lMl*l«l«Ni>'i>i»i-<i*i«l»iM».lt lf=ll_E uomo muovi 

( Tri' • i i —• 


•I 




130 GETMS : IFM*<"3"ORM*>"?"THEN130 
1 40 M = VRI_ < M* > — -4 

1 50 XFR<M, 1 >>3THEHGOSUB1000 : GOTO120 
1 60 M—=1=1 < M .. O > -t-X : X EM>32XHEMM=32 

170 R = M-«-3 I RMX-4 = I MX F MX-4 > ORM-*23XHEMF» = 0 I E 
M~32XMEMR= 1 : R < M - 1>-4:H = H+1 
ISO POKES+R<M,0>+40*M,32 
130 R<M-0>=M 

200 POKES + R < M .- 0>+40*M, ISO 

210 POKES + D + RCMj 0)+40#rij R : IFP-0XHENGOSUB 
1 1 00 

220 I FH+E03THEN 1 00 
300 R*-"GRME OVER." 

310 I EE = 1 XHEMR* = R*:-*- ” 1 UOMO UGO X SO " 

320 I FE“2XHENRS“R#+ '■ 2 UOM I M I UCCISI" 

330 I FE-3XHENR* - " XUXX I OI_ I UOM IMI MORXI. 

340 IFH-3XHENR*”"CONGRRXULRZIONI” 

3=50 PRINX , '*amW" :PRIHXXRB(20-LEN<Rt)/2>Rt 
-400 PRIHX" W"TRB<7> "PREMI SEPRZIOS PER O I 
OCRRE RMCORR" 

-4 10 GEXR» IFR*OCHR*<32)XHEN410 
-420 RUM 

1000 MH = -4 : MI _= 200 : 4-4 = 33 • GOSUB80 0O^ ^ ^ ^ 

SSR SBRGLIRXR" 

1 020 EOR J=1 XO300 MEXX 
1030 PRIMX"T'XflB<12>B4 
10-40 GOSUB2 1 00 
1 0=50 REXURN 

1 1 00 MH = 3 : NL= 1 ■■ U= 1 23 : GOSUE2000 

1110 EOR-T= 1 XOG00 MEXX 
1 120 R C M - 1 > = -4 : E = E-*- 1 
1130 OOSUB2100 
1 1 -40 REXURM 
.‘0G0 PPKE34296, 1 55 

.•010 POKE54277,200 

,•020 POKE34278,. 220 

2030 POKE54273-MM 

20-40 POKE54272.. ML 

2050 POKE34276..W 

■0(S0 REXURM 
.100 POKE54276.0 

3110 POKE34277,0 

-■120 POKE54278.- 0 

2130 REXURM 


r r 'K 1 t 1-4 | 1 t— r- —* 4 1 —. 

vi 11 vv 1 ì c. ì a 


"Chiudi la scatola" e' uno dei qiochi piu' popolar 
Caffè' di tutta Europa anche se io non ho mai vis 
locale provvisto di un Commodore 64 per divori¬ 
ci ienti. Ogni numero può' giocare e una partita si 
in una serie di rounds che se ben giocati, e questo 
la popolarità' del gioco nei locali, possono diverti 
ore intere. Se non avete avversari, potete sempre es 
in una lotta contro voi stessi, per cercare un 
sempre migliore. 


1 nei 


i re i 
svo1ge 
spiega 
re per 
ibirvi 
record 
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Per ogni giocatore al suo turno, un round procede come 
segue ; 

Il giocatore ha di fronte a se 1 nove scatole, ognuna 
contraddistinta da un numero (da ì a S); tira quindi un 
paio di dadi (come avrete già' capito, il possessore di un 
Commodore 64 non ha bisogno di possedere dei dadi veri), e 
chiude tutte le scatole che vuole facendo attenzione che 
la somma dei numeri sulle scatole corrisponda al numero 
uscito dal lancio dei dadi (per esempio, se esce il 9, si 
potrà' chiudere la scatola 9, o le scatole 7 e l, o le 
scatole 6 e 3, e cosi' via). Il giocatore rilancia 
nuovamente i dadi fino a chiudere tutte le scatole o fino 
a quando si trova impossibilitato a chiuderne 
ulteriormente. Il punteggio di ogni round viene calcolato 
a seconda delle scatole rimaste aperte. 


Tutte le scatole vengono riaperte e i dadi passano al 
giocatore successivo. Vincitore del gioco sara' colui che 
avrà' ottenuto il punteggio piu' basso dopo aver sommato 
lo "sciare" di ogni round. 


Il miglior punteggio ottenibile in 
naturalmente 0 ma e' raro che si 


ogni round e' 
possa ottenere 


frequentemente. , 

Il peaginr punteggio e' invece 43, per u quale e 
necessario che esca, per due volte consecutive il numero 2 
(infatti col primo due si chiude la seconda scatola, e con 
il secondo il gioco e' già' finito per l'impossibilita' da 


parte del giocatore di continuare). 


Il programma dirige da solo tutti ì meccanismi del gioco. 
L'unica cosa che l'operatore deve fare e' inserire i 
numeri delle scatole da chiudere. 


Se scegliete di chiudere piu' di una scatola per ogni 
lancio, non premete RETURN dopo ogni numero, ma battete 
tutti i numeri in una sola linea, in qualsiasi ordine, e 
poi premete RETURN Le risposte sbagliate saranno 
automaticamente respinto he non sarete in grado di 
p.^nr^dere oltre, premei’' >emf licemente RETUn.N sen^a 


immettere alcun numero. 

Eccetto che per due circostanze particolari (.come diremo 
piu' avanti) il programma non si accorqe quando il 
giocatore non ha piu’ mosse a sua disposizione. Potreste 
agqiunqere voi una routine che controlli quando non e 
piu' possibile chiudere piu' alcuna scatola. 

Un possibile algoritmo potrebbe essere il seguente : 


Il massimo numero di scatole che può' essere chiuso ao 
ogni lancio di dadi e' 4 (1+2+3+4=10, 10+5=15, che e 

troppo alto per un lancio di dadi). Quindi usate quattro 
cicli F0R...NEXT, ognuno che conti da 1 a 9 dove vengano 
saltati i nume ri già' usciti, in modo tale che se al 
termine la somma delle variabili dei quattro cicli e 
uguale al lancio dei dadi, allora sia possibile effettuare 
1a mossa. 


La stessa routine potrebbe essere usata non solo per 
controllare la situazione del giocatore, ma anche per dare 
anche al computer la possibilità' di giocare 
intelligentemente (potreste inoltre includere una 
"strategia di decisione" che permetta una scelta ponderata 
quando sono possibi1i diverse combinazioni ). 


grado 


di 

ì. 


Le due circostanze in cui il computer e' in 
capire quando un turno e' finito sono quando tutte le 
scatole sono chiuse (linea 360) o quando il punteggio dei 
dadi e' 


maggiore della somma dei valori delle scatole 


ancora aperte. 


—, REM *4* PRO . WS — COLPISCI LR 

t0 H=RNDC—TI y 

■Gl F0RJ=1T06 -B*>=E* + CHR*C32 .' : 

10 FORJ = 1 T03 : B* = B$ + CHR* <1 3 i" ) 

-40 POKE532G0.- 35 : POKE3328 1 -• S 

-50 RR X NTCHR* < 1 ‘XT > .■ CHR* < 1 -=*■4 > 

E.0 PR I NTTRB < 455 ~> i "Ik-SIL GIOCO 


SCRX . 

MEXX 

HEXT 


DELLR 


* 


SCBTOL 


RH" 
7-0 
00 
RE " 
S>0 
1 ? : 

1 00 
110 
1 20 
TOP 
1 30 


PR I MXiIMRUX”QURHTI GlOCRXORI";P 

PRINT : IHPUT”QURHTI ROUNDS PER GlOCR 

j p i *: = CHR* < 20 > RHDL>0THEHR*=LEFT* < Rx . 
GOTO120 

POR J=1XOR : EORK=1XOR 

PRINTCHRt'- 1475 .: . . 

PR I MXXRB C S > " BROUND " J J XRB < 2S > .■ 

K : PR I MXXRB < 2S > " ««SCORE " S < K > 

PR I MXXRB < "X y i 


" ««G X OCR 



= M : BC0>”ECC>+H : R R I M X M 5 


CMR 


X 40 EORM — 1 X03 Et < H ? 

: MEXX PRINTCHR*< 156 > 

FORH -1 T09^ PR I NTCHR* < 1 8 > J CMR* <325 
Ìo46°VcHR* <325; CMR* < 32 > 5 : MEXX 
!70 0 = 0 : RR X MXCMR* < 1 -44 > 

0 = 0-*- 1 

,=,= I MX < RMD <15*65+1 
B—IMXCRMDC 1 > >*6 5> 1 

PR?NT ,, «WnMWWO(Wl»n'IRO NUMERO : "O 

RR IMX RRIHI-TIRO DODI : "M5 B"— B* .. C 

T EOB < O > XMEM300 _ 

• RR I MT ” JBWBJMWMDIWirotWWlIQURLE SCRT 

CMIUDI" B* 5 =INPUTC* 

|_ — LEM<C*> ’■ IFL“0THEN300 
M = 0 : EORM —1TOL 

X* — MID*<C*..M..i:> _ 

IFT*<"1"ORT*>"9"THEN400 
T-VRL<T*5 : I RB < X > — 0XMEM400 
M —M-*-X : NEKT = I FHOCTHEN400 
B<0>—M ^ FORH-1TOL 
T —VRL<MID*<C*> M .. 1 > > 

QOSUB300 
MEXX 

IEB < 0 > “0THEN500 
00X0100 

X E I * <2I> " M 11 THEN370 
EMD 

MM — 3 : NL“103 : Ul —33 
GOSUB000 
RR I MX " M*K 


1 SO 

1 SO 
200 

2 10 
230 
230 

2- 40 
230 
OLfl 
260 
270 
2S0 
230 
300 
3 10 
320 
330 

3- 40 
330 
360 
3XO 
300 
330 
400 
■4 10 
420 


' XSB < 1 O > 5 CMR* < 185 


lRRORE 


CMR* < 146 > 

430 RORM-1XO300 MEXX 
440 PRINX"X'XRB<185B* 

430 OOSUBS60 

^00 RpTMX^SwMWWIKIWWWWrKrBIMWWWIWESE I M 

VT b <0> : 3<K5*S<K5+B<05 : B C 0 > - 

___ . — .. . -«-tir-. r—. i iki-rcrnn t 


XUO PUNXEOOIO 


ROUND= 
XOXfll_E ' 


M 


SCORE - 

310 RRIMX:RRIMX 

320 RRIMX:RRIMX : RRIMX : RRIMXXSB<4> 

T IO PPRZIO PER COMXIMUORE" 

-530 OEXC* : R“RMD< 1 5 : IFC*OCHR*<32> XHEN330 

Io© RR?MXCMR*C 1 4X > [TB I OCOXORE " , ■■ RUMX I » 
610 N-45*R+1:EORK—1XOR 

620 RR 1 MXK / S<K5 

fon ifc<K 5 -=WXHENW*»W*+" & -*-SXR* < K > 

S40 I FS < K 5 <WXHENW“S < K 5 : Ul* - G I OCRXORE » XSX 
R* < K > 

630 MEXX 
660 RRIMX 


RRIMX"IL VIMCIX ORE 


6X0 EMÙ 

S00 ROKE34236 * 13 

S10 ROKE342XX>200 
S20 ROKE342XS .. 230 
030 ROKE342X3^MM 
R40 ROKE342X2 ^ MI— 

850 ROKE342X6-. Ul RETURN 

060 ROKE342X6 .. 0 

0X0 ROKE542XX .■ 0 

OO0 POKE54278■0 RETURN 

300 MM —40 : ME— 1 2X : Ul — 1 X 
310 GOSLJB800 

320 RR I MX JSWDaW" XOB C 3 > i 

330 EORM—1XOX : RRIMX"**■*»*'■ 5 - MEXX 



'<40 PRINTCHR*< 1SiS> CHR* < 1Q> CHRf'32) CUF? 

«a -4S > CHP4 < 1 -4 «♦ > .: 

. —.0 F="F? I NTSPC < 9 > i CHR* < 32 > 

• >60 Et < T > =0 
»V0 C'OSIJB660 : RETURN 
1000 POKE542961S 

1010 POKE34277.•15 

1020 POKE54278.. 1 35 

1030 POKE54273.NH 
1040 POKE34272,HL 

10350 POKE34276,33 

t 0E-0 EORJ—1TO100 : MEXT 
1 0S0 POKE34276-0 

1 030 POKE34277 ■ 0 

1 100 POKE54278•0 

1110 RETURN 


Batticuore 


Un titolo abbastanza melodrammatico, questo, che sebbene 
non abbia alcuna intenzione di procurare qualche infarto 
riesce a creare momenti di reale tensione. 


Non appena i Cuori precipiteranno dal cielo voi dovrete 
fare di tutto perche' non tocchino il suolo; avrete a 
disposizione una sorta di racchetta, il cui movimento 
dipenderà' dalla pressione dei due tasti cursori (il tasto 
della qestione orizzontale permetterà' lo spostamento a 
destra, mentre il tasto della gestione verticale 
permetterà'lo spostamento verso sinistra); questa scelta 
sembrerebbe illogica, ma e' molto piu' veloce premere un 
solo tasto piuttosto che due contemporaneamente. 


Il gioco finirà' quando si formeranno otto colonne di 
quattro cuori ciascuno; il punteggio verrà' aumentato di 
una unita' ad ogni secondo di sopravvivenza, mentre 
diminuirà' di cinque per ogni cuore "sfracellato" al 
suolo. 


.Note del programma 

La PEEK (197) (alla linea 460) controlla quale tasto 
viene in ogni momento premuto. Ogni tasto influisce sul 
contenuto dell'indirizzo 197 in un unico modo, sebbene, 
sfortunatamente, il valore non corrisponde ne : al codice 





ASCII ne’ al codice PEEK/POKE. 
facilmente scoprire il valore d 
digitando! 


Comunque voi potete 
ogni tasto premuto 


1 PRINT PEEKCÌ97): GOTO 1 


(PEEK(197) = 64 quando nessun tasto viene premuto) 

Ai fini del gioco, i soli valori di PEEKC197) che hanno 
valore sono 7 (cursore alto/basso) e 2 (cursore 
dé-tra/sinistra). Se preferite usare due differenti tasti 
] 5 gestione della racchetta (se siete mancini, p*r 
esempio), basta cambiare i valori presenti nella linea 
410. dopo averne scoperti i valori relativi per fare 
modo che il programma riconosca i tasti desiderati. 


in 


determinare la 
Usando questa 
il valore -1 


La linea 410 usa la logica Booleana per 
posizione successiva della racchetta, 
lnqica, il Commodore 64 assegna . 

all'affermazione VERO e 0 all'affermazione FALbU. Cosi e 
vf=*ro che P=7 quando il cursore-sinistra e' premuto, 
X>!SF.4 quando la posizione della racchetta non e 

margine estremo sinistro dello schermo. Se entrambi 
affermazioni sono vere allora il computer interpre.era 
1inea 410 c orna segue ! 


e 

al 

le 

la 


N = x-((-1)*(-!))+((0)t(-l )) 

c ioe' 

N = X.-l 


in questo modo la racchetta si muovera' di un posto verso 
sinistra. P=7 e P=2 non possono essere vere allo smesso 
tempo, cosi’ almeno uno dei due valori sara' sempre uguale 
a 0’. é' possibile invece che entrambi le espressioni siano 
false (=@) ; aijHnrlo cioè' nessun tasto viene premuto. X 
sara' uguale a N e la racchetta rimarra' ferma. 



3 REM »*!4<PRO# 9-BRTT ICUORE <**:)* 

10 X = PMI1<—XI? 

20 POKE53280 . E : POKE332S 1 .. 3 PP I NTCHR* <14 3 

? J CHP*< 14X ? 1 

30 X = 1 3 P 4 D = 54272 

-40 X I *=" 000000 " 

“■•0 PP I NXCHRf <13?: PR I MX : PR I MX " XEMPO "XI*:. 
" PENHL I XR " PUMX I “ 3 
100 FOP T = 0XO 1 H = H <-J ? 

1 10 IFH = 0THENH < J > = INT C PHD C 1 >*40> + l424 M = 

M < J > 

120 IFH>1 333XHEMH < . J ? =0 : OOXO130 
130 Q—PEEK < M-*-40 ? 

140 I FQ= 1 20XMEMPOKEH .■ 121 FORK= 1 XOS0 : MEXX 
F OKEH . 32 : M < T?=0 : 00X01 30 
1 30 IFO=102XHENHCJ)=H-4O I E MCI 304 X ME M300 
1E0 C = S3 'IFQ=102ORH>1343XHEHC=102:S=S+5 
1 X0 POKEH .. 32 : H < J ? =H < T ? -»-40 : POKEH < . J ? . O POK 
EH < _T ? -<-r» . 2 

130 I FQ- 1 02XHENH < J ? -*0 
130 OOSUB400 MEXX 
200 00X030 

400 P — P E E K < 1 97 ? 

410 M = X— < <P = 7>*''X>1864) > + < <P=2>#(X<1302> 
? 

420 I EMOXXHEMPOKEX — < P=»3 ? .. 32 : X = M 

430 POKEX 1 20 : POKEX-*- 1-1 20 : POKEX + D . 0 : POKE 

X4D-»- 1.0 

440 REXUPN 

300 XX = X I * 

3 10 S =3600*VflL < LEEX* < X* „ 2 ? ? +60*VF|L < MI TJ X < 

X* .3.2 ? ? VPL - RI OMX*: < X rtr , £ ? ? — S 

320 PP I MX : PP I MX "IL XUO PUMXEOO IO E " " . S " P 
UMX I " 

330 PPIMX:PRIMX"PPEMI SBPflZIOH PER OTOOP 
RE RMCOPfì" 

340 OEX I X I E I X<I>CMPX < 3 2 ? X M E M 3 4 0 
330 PUM20 


Catturato ! 


Questo gioco e' semplicissimo (come lo sono sempre del 
resto tutti i giochi migliori) ma molto crudele. Appena 
muoverete il carattere a vostra disposizione (un cuore) 
sullo schermo usando i tasti-cursore (che hanno stavolta 
le loro normale funzioni poiché' e' permesso anche il 
movimento verticale) una serie di Clubs compariranno per 
cercare di intrappolarvi in una morsa mortale. Comunque i 
Club non cercheranno di catturarvi ma solo di circondarvi; 
non sara' quindi difficile sopravvivere abbastanza a 
lungo alla caccia, a meno che non pensiate ad un eventuale 
suicidio... 
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Potete, prima dell'inizio del gioco, stabilire^ un 
handicap 1 , decidere cioè' a vostro piacere guanti Clubs 
debbano essere già' presenti sul campo da gioco: fate 
attenzione a non esagerare per non essere catturati ancor 
prima di cominciare! 


.Note del programma 

Il movimento del vostro carattere (linea 196) usa una 
logica simile a guella del gioco precedente. La differenza 
consiste nel fatto che invece di essere relegati su una 
unica linea di schermo, potrete muovervi in alto, in 
basso, a destra e a sinistra (linee 200-230). 

Solitamente il posizionamento dei Clubs avviene su uno 
dei quattro punti cardinali adiacenti la vostra posizione 
(linee 120-130) oppure casualmente se ci troviamo 
all'inizio del gioco (subroutine alla linea 900). 

Ho deliberatamente lasciato un paio di errori nel 
programma ! Ci sono due modi per raggiungere un punteggio 
alto senza sfoggiare una particolare abilita’. Mi chiedo 
guanto tempo impiegherete a scoprirli (provate a 
correggere voi stessi gli errori, ma prima leggete i 
suggerimenti qui sotto). 


.Suggerimenti per i cacciatori d'errori 


1 - Il cuore spazia per tutto lo schermo, ma come fanno i 


Clubs 


2 - La linea 196 tiene conto di TUTTI i valori che può' 
assumere A ? 


^ REM **■ '* PRC5. # 1 Gl — CRTTIJRFITO ! + 

IO POKE53280 .. 3 ROKE532S3 1 , 1 1 FR I MTCMR* T 1 
'• : CHR* < 1 “4-4 > 

SO l_ = 1 O 2 *4 ^ n = 54272 

30 M = ©3 : C=S8 
-4 0 X = RMD •'—TI > 

©O fwRIJT " G>U RNT I CLUBS RER INIZI HRE FORSE 

O •• ; C ! F R I NTOHR* • 1 47 > : IFQ = 0THEN100 





i . E O R X = 1 TOQ ^ OOSl_lE:S*0O 

POKEE + D + L • Gl : POKEE + L , O : MEXX 
I .ìli POKEX + D + I_. 2 EOKEX-+L_ .. H 

I I O MM = eS HU= 1 +4S" = GOSUB 1 000 

, ,i E= I MX < RMD < 1 > *+4 > 

, n t b = x+ <B=0> — <B=1) + 40# CB = 2>-40*<: B=3 5 

i l ■ < IFEC400RB>999THEMGOSUB900 
i l I FPEEK < B + L > = CTHENGOSUE900 
i ' O POKEE + D + L, Gl : POKEB + L , C 

l . l ì HH” 1 ~F‘ '■ HL = 37 : OOSUB1000 

I, •. S = S-+1 : PR I HTCHR* < 1 S* > " SCOPE " 3 

i ."Gl X :*:= ■■ ■’ : <3 E X I X - I E I * = ” ” THEH 1 T^O 

ino r=rsC'; i ;• 

i ,0 L-l —X-+ C Pi- - 1 "r.’P' > — fR = 29>+40*<fl = 145> — 40# <! R“ 


I V "• 

i ni I FXK40= I MX < X/4 0 > BNDH“X- 1 XMEMM = X-+3S> 

I i ì I FN/40= I MX < MX4Gl > RMDH*X+ 1 XMEMM = X — 39 

n I FH<40XHEHN = H + 9iS0 
• (Gì I FH>993XHENN=N-960 

i G* POKEX+D+L .■ 1 :POKEX+L,32 


-.Gl X = M 

, Gl I FPEEK < X-+L- > OCXHEN 1 0@ 

..IR HH = +4 HL = 73 : GO3UE1000 
. I O POKEX + D + L , X ■ F-OKEX-+L , 86 
•Gl MM = 2 : HL = 37 = GOSUB 1 000 
i iCl PR I HXCHR* < 1 9 ; XHB CI 2 > " PREM I SSPR2IOB 

I EE RIGIOCRRE" 

-I l ì GEXI4 I F I *OCHR* < 32 ) XHEH340 

• -.0 RUM 

• I 10 ■&= I MX C RMn < 1 > *960 > +-+40 

• 1 0 REXURN 


OO 0 

POKE54296 

1 

n 

POKE54277, 

1 

020 

POKE54278, 

1 “5 

. ^ io 

POKE54273, 

MM 


POKE54272 .. 

NL 

. i “ . o 

POKE54276 
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t > r> 0 

E OR .J — 1 XO 1 Gl Gl : 

» 1 : <0 

POKE54276• 

G» 

• ì • >0 

POKE54277, 

0 

1 I 10 

POKE54278 .. 

0 

1 1 0 

REXURM 



Giocando col tempo 


.Oro1ogio-sveg1ia 
...Orologio-calendario 


Cronometro 


Orologio-sveglia 


Abbiamo 

permetta 


reme 


variabile 


dedicata 


di accedere all'orologio interno 
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b4. Molti computers possiedono questa caratteristica 
t unzione ffia la Commodore e' stata per t i co largente qenerosa 
nel provvedere in modo tale da avere non solo un timer ma 
un vero e proprio calcolatore di tempo reale, espresso in 
ore, minutij secondi. Avendo a disposizione una tale 
comodità sarebbe uno spreco non saperla sfruttare a 
dovere. 


Per iniziaiizzare l'allarme, se ne avete bisogno di uno, 
inserite l'ora ed 1 minuti esatti in cui volete che 
1 allarme suoni. Quindi regolate l'orologio inserendo 1 p 
ore ed i minuti esatti (ricordatevi che e' un orologio che 
conta ì 4 ore), fatto questo, aspettate lo scoccare di un 
minuto per far partire i secondi tramite la semplice 
pressione della barra spaziatrice. 

Quando 1'a11arme entrera' in funzione, accompagnato da un 
segnale luminoso sullo schermo, basterà' premere un tasto 
qualsiasi p : er spegnerlo. 

N.8. ; Una volta che l'allarme e' stato regolato (e cosi' 
pure 1 orologio) non dovete spegnere il computer. Semmai 
Potrete spegnere il monitor/televisore, o anche far girare 
altri programmi sul computer (badando pero' che essi non 
modifii.hino il valore di TI$.’ Se intendete ricaricar* 3 
"orologio-sveglia'' dopo aver fatto girare altri programmi 
e volete visualizzare il tempo reale senza reset-tare 
l'orologio, usate RUM 200 (in ogni caso andra' reinserito 
il momento desiderato per il suono dell'allarme). 

.Note del programma 


Quando iniziaiizzate l'orologio, e' importante capire che 
TI$ accetta solo valori validi, altrimenti si incorrerà' 
in un "Illegai Quantity Error". Le linee 520, 550 e 560 si 
accertano che Hi (che metta in funzione Ili alla, linea 
•SO; sia sempre formata da sei cifre in lunghezza, mentre 
le linee 510 e 54ó controllano che i numeri siano 
nell'arco dei valori accettabili. Ricordatevi, quando 
trasformerete dei numeri in stringhe, che i numeri 







i '05itivi sono sempre 
■TR*(8) sara' " 8" 


preceduti da uno 
e non "8". Per 


spazio (ad es. 
eliminare questo 


'spazio" 


usate MID$CSTR$(8),2) nelle linee 520 e 550. 


La linea 220 richiama la subroutine di allarme nel 
momento in cui III e' uguale al predeterminato tempo T$. 
vuesta subroutine viene chiamata una volta sola, ma il 
uono prodotto ha un valore di Susta in/Re lea.se di 240 
linea 320), che essendo il valore massimo permette un 
unprs costante che continua fino allo spegnimento (linea 
230). 


-• REM ***F'RG. ** 1 1-OROL. SVEGLIO ***< 

I O POKE53280, 1 : EOKE532S1 .. 1 
n RR I HTCHR* < 1 > .: CHR# < 1 > 

li RR X MT " I USER I 3C I L_ ' RLL-RRME < SXM > 2 " 

IS1 GETRJ I ER* = " M TMEMT*==* " D ” • GOTO100 

-.ri I FR#0 " S " THEH40 
r.CI GOSUB500 
,•121 TX = M* 

I 00 RR I MTCMR-^ < 1 47 > 

I 1G1 RR I MT " RREOO .. IMSERISCI l_ " ORR ESRTTR" 

I20 GOSUE500 
1 :© X X X = 

iiO RR I NTCHP* < 1 > 

10 RR I MT ” TREC 1 *5 1 .: UEETX < T I 

« SI". "MID*<TI#,3,2>". "RIGMTXCTIX- 
•0 IETIJ=T*RHDR=0THEHGOSUB300 
10 OET I T I F I »0 " " THENGOSUB400 
•IO I FR= 1 THEHGOSUB380 
■'•0 OOTO210 
•00 ROKE5**23© .15 
•10 POKE342??,240 

, -0 POKE34278,240 

• 10 POKE54273..72 

10 POKE54272,1RR 

• “.0 POKE34276 • 33 

•.0 RR I NTCHRt < 191 "PREMI IJN TRSTO RER ©RE 
• I II RE l_ ' RI_LRRME " 


» .'O 

R — 1 

















• 1 <0 

ROKE532R0. 

I 

MT 

< R* 

ND 

«r 
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i ^ 
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•• 1 

ROEE532© 1 .. 
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MT 

< R 

ND 
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> ** 
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2 







RETURN 
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e» 
















. « 1 

PGKE34278, 
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1 40 
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1 
















i.l 

POKE33201• 

1 
















i • «1 

RRIMTOMEX< 
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» 7*0 

RETURN 
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IEH<0ORH>2 
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5. '0 

R $: = MI n t : 3 t 

R 

T C 

M > 


> 


I F" 

tu 

j 

M 

r 

FI 

X > 

— 

1 T 

HEMR 



- •• 0 " -*-R=r 

— 10 I NPUT •• M I MUT I < 0 — 5S> > " M 

540 I EM<0ORM>39ORMO I MT •' M > TMEMER I MTCHRX < 
1 43> : : OOTO530 




■s o ei 

* . * ii 


Eìjr m i ri-* < str$ < m > . 2 

H* = fi# + E^ + ng 0 .. 

1 F^T *=• " " THEHRETIJRH 


; 1 THEH B -* 


"i :=! Gì PRINT"PPEMI ' <=; *=, 

LOGICI" 

^•=*G» GET I r : IFI ^OCHRi: ^ -=!S 
<S Ci Gl RETI JPH 


IO PER RVVIfiRE 
THEH590 


•— ' ORO 


. Oro1ogio/c a 1andario 


! " on 5000 mo ^° sicuro che sia economicamente sensato 
usare il vostro Commodore 64 come un semplice calendario 
ma al mondo dovesse mai scarseggiare la carta, questo 
programma diventerebbe inestimabile. Esso ha infatti il 
vantaggio^di essere un calendario perpetuo (valido "solo" 
lino al 3939), sebbene potreste avere gualche inesattezza 
a^.a ricerca di date storiche, perche' dovete tener conto 
,at - to il moderno calendario (Gregoriano) non fu 
introdotto nella maggioranza dei paesi che dopo il 1582. 



ogni caso richiedere 
mentre per 1 ' 


un calendario per ogni anno ma, 
-• ì anno corrente basterà' premere un tasto por 
altro anno occorrerà' specificarlo completamente. 


ii meac assiderato può' essere richiamato specificando 

(ad es. Febbraio), o il suo 
2) o un'abbreviazione del 


1’inter 


parola 


cor ris p onden te nurne r o (ad e : 


suo nome (ad es. febbr, feb o f). 

Una volta che il calendario viene visualizzato, un menu' 
sottostante vi propone una serie di opzioni; 

‘•'ì e L : mostra il mese precedente o quello successivo 

*-• o X : accende o spegne l'orologio 
D ! inserisce la data 

. cancella il testo del menu' (basta premere 
nuovamente il tasto per vederlo riapparire) 

Alcune di queste opzioni lavorano congiuntamente, cosi' 
se per esempio l'orologio e' acceso ed “il calendario""e' 







funzionante, la data si cambierà' automaticamente allo 
scoccare della mezzanotte. Allo stesso modo, qiunti alla 
fine del mese, verrà' visualizzato direttamente il mese 
successivo, indicante il primo giorno del mese. 


1 REM «««PRG. # 12 — OROI_CHLENDHRIO *** 

-5 POKE53280 , 3 POKE3328 1,1 RR I MTCHR* (30 

10 DIMR < 31 > 

1S M* = " 1 2 3 -4 S E 2 3 31011 12131415161 

1 © 1 3202 1 2223242326272829303 1 " 

20 M*="*GENNRI0»FEBERHI0*MRRZ0*RPRILE#MH 

GO I 0*0 I UGNO*LUGL I 0*1=10OSTO*SETTEMBRE* ” 

25 M* = M*-<- " OTTOBRE* MOV E MBRE*D I OEMBRE* “ 

30 LL=LEMCM»> 

3S D* = " DOME UMMRR MERO I OVE MS RE 
-40 C*="303232332323" 

45 TV= 133-4 : REM *** GUEST " RMMO*** 

-5 0 POR J = 1 T033 ^ CE* = CL*-<-OHR*<r32> : MEXT 
1 00 RR I MTCHR* < 147> .: TRB C 1 S > " 3*C RLENDRR I OH" 
110 PRIMT’'M«i!HW.'UOI I l_ " T V " 3 <SXM>" 

1 20 GETO* = T EQ* =" '• THEM 1 20 
130 I EQ* = ” S " THEM200 

1- 40 I FQ40 “ M " TMEM 1 20 

1 T-O RR I MT 

130 I MRIJT " RMMO RICHIESTO <-4 CIERE> *■» 

■ ■I" .: TV* 

130 IETV*="*”THEMERIMT "m 1 ’ GOTO130 

1 ©O I EEEM <. TV* >040RVRI— < TV* XI ORVRL < TV* 3* < 
> I MT < VRl_ < TV* > > THEMRR I MT " TT 1 : OOTO 1 30 

130 TV — VR1— < T V* > _ 

20S I MRUT " MESE RICHIESTO *■■■!" 1TM* 

2 10 I ETM*= ” * " THEMRR I MT !TT' - GOTO205 

215 T M = V R E < TM* > IETM>0RMDTM<13RMDTM=IMT <r 
TM >THEM300 

220 IETM>12THEMTM*="*" GOTO210 
225 L = I_EM < TM* > 

230 TM — 0 : E0R J=1T01_I_— I— 

3 35 I EM I D* < M* , -T , 1 > = ••*•• THEMTM = TM-*- 1 = OOTG2-4 

2- 40 I ETM* = M I D* •' M* , -J , E > THEN J — LI— -*-2 

245 MEXT J ■ I E.J = I_1_-*- 1 THEMTM*= " * " 00T02 1 0 

2550 B — 0 
100 D = 0 

105 X = 0 - EOR-T= 1 TOLL 

=<10 I EX = TMTHEMTM* = M I D* < M* , J > : G0T0325 

=H5 I EM I D* < M* , J , 1 > = ■•*■• THENX-X+ 1 

420 MEXT 

<25 EOR-T= 1 TOLEM ■: TM* > 

430 I EM I D* < TM* , -J , 1 ? = "*" THEMTM* = UEET* T TM* 

. J— 1 > OOTO3-40 
335 MEXT 

3- 4 0 L V = 0 

445 I ETVX-40 I MT < TVX-4 > THEM360 

350 I ET VX 1 00O I MT < T VX 1 00 > THEML V= 1 00T03S 

0 

355 I ETVX-400— I MT < T V/400 > THEMLV= 1 
460 TM*=M* 

365 IFTM=90RTM=40RTM=60RTM=11THEMTM*—LEE 
T* < M*, 30 > 

370 I FTM = 2THENTHt = LEFT$ < N$ .< 56 > * I F*L V = 1 THE 
ntn^=left^c:n^ . 38> 

^G»G» F=*R* I NT *' 73 ” TV TRB < 20 —LEM < TM^ > ^2 > " sa*’ - T 

•• TRB < 33 > TV 


i 



4 10 F R INT : PRI UT : PP X NT 
420 FOR J=1TOLEU C D*1STEP3 
430 PRINTMIDtCDt. J,3V'W" 

440 NEXT 
4 50 x = o 

460 FORJ =1TOTM 

430 x=x+rsc < m i d* < c* . j , i > > —sei 

480 MEXT 

490 I EL_ V = 1 RNDTM> 1 THEMX*=X4- 1 

500 X = X+ < TV — 1 > #365+ I HT < < T V_ 1 'j ^4 > 

— 1 > X 1 00 >4-1 MT < C TV— 1 > 2 400 > 

510 X = X4- 1 — LEM < TM* > /2 
520 X=X-?#IHT<X/7> 

PR I MT " MOKI" 3* 

X FX = 0THEN570 

FORJ=0TOX—1=PRINT"»"S*•MEXT 
FORJ=1 TOLEN < TM* > STEP2 
X = X 4- 1 

IFX = 8THEHX=1 : = : PR I NT 


I M T < C. TV 


530 

540 

550 

560 

530 

5©0 

590 

; 

600 
e i 0 


«*i«a 


SREGM 

CRNCE 


RFR I MT ” W” ST ; 

f=\ < I MT < J X2 > 4- 1 > =* 1 0244-REEK < 2 1 1 > +40*PEEK 
< 2 1 4 > 

620 RRIMTMID*<TM*.. T . 2 > 
e30 MEXT 

640 I FDO0THEMGGSUB3060 

650 X FBTHEHGOSIJE2000 : <30 T 0300 

660 PR I MT " 3r»TWXl!Iirir>I»KIi*T»n:»frKritrRX«UCD»T»*Xin■' 

670 PR I MTCMR* < 1 4 4 > "M = MESE RR I MFt |_ 

= MESE DORO" 

e©0 PRINT" TOC = RWXR OROL-OG . : X 

I ORDÌ_OG . " 

630 RR I MT " WXD =» IMSERISCI DRTR : B 

I—I—R TESTO " CMR* < 3 1 > 

300 ORTO* 

305 IEO — 0TMEM325 
310 RR x mt " 

315 PRIMT" a"LEFT#CTIf, 2> " . "MID*<TI*, 3. 2 > 
" . "MI D* < T I * .. 5 > " Hi" 

320 IRTI*—" 000000 "RMDDO0TMEM4000 
325 IFQ*=""THEM300 

330 I FQ*<> " M "flMDQ*0 " L " THEM360 

735 IFQ*="M"THEMTM = TM4-1 : I FTM> 1 2THEMTM** 1 : 
T V = T V 4- 1 

340 I FTV>9999THENTV 3: 995 , 9 : TM = 1 2 : GOTO300 

345 I E O * = " L " TMEMTM—TM — 1 : I E T M< 1 THEMTM= 1 2 : 

TV-TV—1 

7*50 I ETVC 1 THE MTV — 1 : TM= 1 : OOTO300 
355 OOTO300 

360 IEO* ="B"THENB=HOTE:OOTO650 
365 I EG<* = " O " TMEMGGSUB300 : OOTO650 

330 I EO* = " X " TMEMC = 0 : RR X MT " 4WOWI*ri*ffWira«CWDII*» mm I 

IE O * ="D"THEMGOSUB3060 : GOSI_IB3000 : GOTO 


335 
650 
780 
300 
3 10 
320 
330 
340 
350 


360 


G O T O 3 0 0 
GOSUB2000 
C= 1 

RR I MT " 41 
I MEI JT " ORO staili" . HT-t 

R = VRLCHT t> : L = L_EM < MT* > 

I FR = 0RHDHT»<> " 0 " RMDHT*CI> " 00 TMEMRR X M 
":GOTO330 

I FL>2ORR<0ORR>23ORRO I MT < RI > TMEMRR I MT 
•GOTO330 






3 7 0 IFL=1THEHHT*="0"+HT» 

• 00 PRIHT 

.•=>0 I MPUT " M I MUT I ; MT* 

1 O00 FI = VHL<riT*> ' 1— — LEN<MT^ > 

t O 1 0 X FR=0fiHDMT*O " 0 " RNDMT*C> •• 00 " THEHF'R I 
I |T" -T"T• ' • GOTO990 

1 020 I FL>2OPR<0ORFi>59ORfi<> I UT ■' 0 > THEUPR I M 
T" ~n" : GOTO990 

1020 I FL = 1 THEUMT $T-— " 0 " -*-MT ^ 

I 0*4-0 I NT 

1 0S0 t MPUT " SECOND X 

1 060 R=VFlL ■' HS » > ■ L=LEN C HS» > 

1 07*0 I FR = 0fiHDHS*O " 0 " RNDHSf C> " 00 " THEMPP I 
i IT *■ 1 T V : OOTO1030 

1 030 I FI_>2ORR<0ORR>59ORRO INT<R> THEUPR X M 

T " ■ TI” : OOTO X 0^.0 

1000 I FL = 1 THENHS* =» " 0 “ +HS* 

1100 T I *—MTT -M4T *-t-M3 C 

2000 00 XMT" ««Xirnfrircerrpierwxio'i^wiwruxBiBXWjn ■ ■ 

2-0 10 PRINTCL*"»" : PRIHTCLf'tì" PRXNTCLt 
2020 RETURN 
->.000 0031-1E2 000 

7:0 1 0 F>F? X MT " " 

•3020 INPIJT"DRTR *IW«I" ; Xifl» 

3030 D = VRL<Dfi*> : L- = I— EH < 13 FRT 

3040 X FL:>2OPD :0ORD>LEN ■' TN* > /20RDO I MT < D '« 
THEHPRIHT" TT' OOTO3020 
3030 IFD*=0THEM3 130 

3060 O 1 =F'EEK • 0 < D > > : R2=PEEK < 0 < 13 '■ -«- l > 

207-0 I FD = 0THEM3 1 4 0 
40S0 IFR1=32THEM3110 

3030 H1=R1+128 IFRl>255THEMfll=Rl-256 
3100 POKER<D> 01 

3110 02=02-1- 1 20 I F02>253THEM02 = R2-256 

3 120 POKE0 •' 3 1.02 

3 1 30 0031-1132000 

3140 RETURN 
4000 OOSUE3060 

40 10 D = D+ 1 IFOLEN'-TNl ' .-'2TMEM4 1 0O 
4020 OOSUB3060 
I 030 I F r T X ” 000000 ’• TMEM4030 
4040 O0TO725 

l 100 IFTV = 9?99THEND = 0 : OOTO4020 
-4 110 ri= 1 TM = TM1 I FTH> 1 2THEMTM— 1 TV=*TV-«-1 

-1120 O O T O 3 0 S 


. Cronometro 


Per quanto sia. apprezzabile il valore dell'espressione 
TI$, essa e' chiaramente inadequata quando ci e' 
indispensabile misurare intervalli minori di un secondo; 
per questo ci viene in soccorso l'orologio interno del 
preciso fino ad un sessantesimo di secondo. Quindi 
avere unefficiente cronometro, dovremo per questa volta 
ignorare TI$ per guardare direttamente all'orologio 
interno al computer. 
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L orologio e' locato negli indirizzi tra il 160 e il 162 
nelia memoria del 64. I contenuti deir indirizzo 162 
vengono incrementati ogni sessantesimo di secondo, e 
mentre si commutano da 255 (il massimo valore di un 
singolo byte' a 0 , quelli della locazione 161 vengono 
incrementati di 1 . Allo stesso modo, quando i contenuti 
etll indirizzo 161 cambiano da 255 a 0 , i contenuti in 160 
si incrementano di uno. L'espressione! 

TI$ = " 000000 " 

che resetta tutti i tre valori a zero, e' equivalente a 

POKE 160,0: POKE 161,0! POKE 162,0 

Quindi 1'espressione: 

PEEK(162>+256TPEEK(161)+65536*PEEK(160) 

ci calcolerà' il tempo trascorso con la precisione di 
I /60 di secondo. Fortunatamente tutto ciò' e' accademico, 
poiché' il Commodore 64 possiede un'altra variabile 
!i=ervata, TI, cne indica il valore della espressione 
sopra indicata. Quello che e' necessario fare e' quindi 
rare in modo che il valore TI venga diviso in 1/60 di 
secondo per sapere precisamente il tempo trascorso. 


Il solo problema per giungere a questo grado di 
accuratezza e' che il dato non fa in tempo ad essere 
visualizzato sullo schermo. Comunque, in questo programma, 
h ; -i risolto il problema facendo comparire le frazioni di 
secondo solo dopo che il cronometro viene fermato. Invece 
TI$,mostra i 1 valore (in secondi) che piu' si avvicina 
all'effettivo tempo registrato (la linea 100 ferma 
l'orologio, mentre il tempo esatto viene calcolato nelle 
1 inee ds 11 9 . 8.il 9 . 


Usate i tasti FI per la partenza, dell'orologio, F3 per 
fermano e mostrare l'esatto tempo trascorso, F5 per 
reset-tare il tutto (e ricominciare) Come un qualsiasi 
cronometro, e’ possibile fermare il tempo e ripartire 
senza cancellarlo, per prendere anche 1 tempi "intermedi". 



1*7* 


?o r éSk£SS£SS:T . ^SSSSS?*I?S«?:5?cmr« . 

20 C FORJ=1TÓ10^PRIMT■NEXT■FORJ”1 TO40: E*=E 

< ri L RPINT''Fl * * = ' PHRTEN2H/R I PRRTEM2H " 

X% PRINT PRIMT"E3 = STOP,'TEMPO TRASCORSO 


F-P X UT ■* f: 


CflNCELLH ' 


TX» 


E = 3 


i < 2 > >*t e o ts 
-h < 3 > *e® 


*50 PRIMT 
EO E=1 

70 TI#="000000" 

PO PRINTCHR< : <19 
ofi SET I T : 0 = E 

1OO IFI*»CHR*<134>THEH 
ÌIO I F I *-CHR* ri 33 > THENF-2 

I SO X E I * = CMP* < 1 3“5 > TMEMT I T = OOOOOO 

130 ONFOOTO70f80f200 _ 

200 M < 1 > = X NT < T 2 <S O 13 > : T = T M < 1 > *^0 13 
£ 1 O H<2>=IHT<TS O 12 > : T 

2- SO H < 3 > = I MT < T,-'«SO > -T = T 

230 H<4>-INT<T#100/60) 

S ^0 PRIMT:PRINTCHR1C285 

. " SECClNIl I " - "CEHTINfìlR" ._ 

250 EOP-T=lTO*4- : H*<J1”MIB#<STR*< H< J 
j^LEM M* < -T > > 0 2TMEMMT < J > = ” O ” 

260 PP I MTCMR* < 30 > MT •' T > , 

2TO MEXT 

280 PP I NTCHR* f 144Ì _ „ 

230 OET I T I E I TOOMPT < 1 33 .» BHD I * 

>THEN290 

300 PRIMTCMPT < 13 > 

3 10 PR I MT : PR I MTBT : PR I MTE:T 
320 IEI*=CHR*<133>THEWE—2 
330 I E I T = OMR* : < 1 35 > TMEME= 1 

3- 40 OOTO 1 30 


E = 0 


1 ORE 


M I MU' 


2 > I 


(*< J> 


OMR* < 1 355 


Archiviazione 


Cardbox 


Cardbox 


Cardbox e' un sistema altamente sofisticato di gestione 
di files. Esso lavora ugualmente bene sia su disco che su 
cassetta, e dato che le diverse gestioni di files sono tra 
di loro compatibili, se per il momento possedete solo il 
registratore sarete sempre in tempo a trasferire i vostri 
dati su disco quando vi potrete permettere il sistema a 
dischi. 
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Se avete una stampante coi legata al vostro Commodore 64, 
vi sara' possibile riprodurre su carta ciò' che verrà' 
visualizzato sullo schermo, o una lista, o, se state 
usando Cardbox come un'agenda di indirizzi e nomi, 
stamparli su delle etichette. Possono essere visualizzate 
schede singole o l'intera raccolta di file (in modo 
continuativo), oppure schede selezionate (sia 
singolarmente che in modo continuato). 

Le schede possono essere aggiunte o cancellate, e cosi' 
pure i dati in esse contenute possono essere modificati. 

presente un potente sistema di ricerca che permette di 
ricercare i dati voluti molto velocemente; in alternativa 
si possono vedere le intere schede ad una ad una. Questa 
versione del programma non contiene una routine di 
ordinamento dati (SORT), ma dato che in questo stesso 
libro piu'avanti ve ne presenterò' una sara' vostro 
compito, per rendere piu' completo il programma, 
aggiungerla. 


Questo e' un. vero e proprio programma da lavoro, 
gestiole, che e' possibile usare regolarmente per tenere 
un registro dei clienti e dei fornitori. Comunque potrete 
modificarlo a vostro piacimento e per soddisfare le vostre 
personali esigenze; proprio per questo vi descriverò' le 
caratteristiche generali delle schede, il modo in cui 
potrete utilizzare il mio programma, e il modo migliore per 
modificarlo, per plasmarlo ai vostri scopi. 


.Caratteristiche generaii 

Ogni scheda di un file contiene nove campi (linee di 
informazione). I primi sei sono i campi normali che 
possono contenere fino a 26 caratteri ognuno Gli altri 
tre sono dei campi-bandiera; ciò' significa che quando 
' /t! 1 visualizzata la scheda, basterà’ indicare c^n la 
semplice pressione di un tasto se si desidera o meno un 
campo già' pre-definito (vi spiegherò' meglio in seguito 
il fLinziunamento di oyesio semplice espedlente) 



Oqni fil- può' contenere fino a 250 campi, ma voi potete 
naturalmente usare molti files (i possessori del sistema a 
dischi saranno indubbiamente avvantaggiati.'. 

I campi di ogni scheda possono essere utilizzati 
dall'operatore per raccogliere i files di dati nel 
seguente modo: 


Campo 1 ! Nome 

Campo 2 : Indirizzo (via) 

Campo 3 ! Indirizzo (citta') 

Campo 4 : Indirizzo (provincia) 

Campo 5 : Indirizzo (stato), con "Italia" come risposta 

suggerita dal computer 

Campo 6 : Note (per ricordare gualche caratteristica 
importante; viene suggerito un "meno" se non si hanno 
commenti) 

I campi-bandiera sono definiti come segue. 


Campo 7 ; Vendita (si/no). Usandolo siamo in grado di 
catalogare un cliente ed un potenziale cliente nello 
stesso file. Al momento della creazione di una nuova 
scheda, per rispondere alla domanda basterà' premere un 
tasto, e nella successiva visualizzazione sulla scheda 
comparirà' la scritta ("cliente" o "nessuna vendita ) in 
campo inverso. Da notare che le due opzioni si escludono a. 
vicenda icioe'o si e' clienti o non lo si e'). 

Campo 8 : Estinto (si/no). Un'opzione molto usata, 

specialmente in alternativa alla totale cancellazione 
della scheda dal file. Generalmente sta ad indicare un 
cessato rapporto di fornitura/clientela con 1|intestatario 
della scheda. Come prima, un singolo tasto ci permette di 
stampare sulla scheda interessata la parola e=.in,' j 
"corrente" (naturalmente in campo inverso). ... , 

Campo 9 : Visitato (si/no). Indica se il cliente e 
stato n meno contattato da uno dei rappresentanti della 
nostra ditta o se esiste solo un rapporto di semplice 
corrispondenza. 


SOLO i campi dall'1 al 5 vengono eventualmente stampati 
su carta (o etichetta). 
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Il vostro Cardbox personalizzato 




y-B intendete usare Cardbox semplicemente come un'agenda 
-di indirizzi, penserete che siano sufficienti i primi 5 
campi. Per altri scopi, per es. al fine di tenere un 
inventario di una vostra collezione, dovete prima di tutto 
cambiare le linee di testo dalla 1Q0 alla 120; e' "dà 
notare che, poiché' la memoria e' la cosa che piu' conta 
m guesto programma, l'elemento 0 dell'array viene usato 
in riferimento al campo 1, e cosi' via. Il campo 6 (eìem 
array 5, linea 125) e' da usarsi per dei commenti in 
generale, ma se volete potete dargli un argomento ben 
preciso (ad esempio "Numero di telefono"). 


Alcuni campi tra quelli dall'! al 6 possono portare una 
risposta pre-determinata, in modo tale da evitare inutili 
e noiose ripetizioni di battiture e per scongiurare il 
pericolo di errore sulla scheda finale. Come già' detto 


prima, i campi 5 e 6 (linee 640 e 650) usano già' questa 
particolare tecnica di funzionamento. Potete cambiare o 
cancellare quelle linee, ma. ricordatevi sempre nella 
manipolazione degli array che il discriminante e’ sfasato 
di UN valore rispetto a guanto compare sul video come 
numero di campo. 


Il meccanismo per immettere una risposta pre-determinata 
e' il seguente! 


PRINT" [3 cursori-destralrispostaElo 
caratteri formanti la risposta+21" 


stesso num. 


dei 


Questo permetterà' al cursore di posizionarsi sulla 
primalettera della risposta, in modo tale che se il tasto 
RETURN viene premuto, il testo immesso e' quello" 
Altrimenti basterà' scrivere sopra al testo con la parola 
desiderata ! se la vostra e' piu' corta, usate lo spazio 
per cancellare ciò' che rimane della vecchia scritta). 


I campi bandiera (.dal 7 al 9) possono essere 
vostro piacere alle linee 130-140. Alcuni 


definiti a 
esempi di 
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condizioni tra loro esclusive potrebbero essere -«andato 
auguri Natale/Non mandato", "Rapporto affari;rapp. 
amichevole", ecc. Potreste cosi' scoprire a che avete 
mandato gli auguri cercando quel semplice campo. 
Ricordatevi, quando definite le risposte, che dovrete 
immettere nel programma sia le domande per la creazione ui 
una nuova scheda CF$) che le due risposte alternative da 
stampare sulla scheda definitiva <6$). Gli elementi degli 
array dei campi-bandiera sono SETTE IN MENO rispetto ai 
loro numeri di campo. 


I numeri dei campi usati nel momento della stampa 
dipenderà' dalla natura degli stessi campi. Per stampare 
piu' (o meno) dei primi cinque campi, cambiate in modo 
appropriato la subroutine alla linea 4000. 


.Come usare Cardbox 

Quando farete girare Cardbox, il menu’ di apertura 
comparirà' sullo schermo (guardate le linee 520-540). Dato 
che non avrete nessun dato in memoria, saranno operative 
solo le opzioni 1 (aggiungere schede) e 4 (caricare 
dati) Premete 1 e cominciate a creare una scheda, scheda 
che comparire.' completa sullo schermo insieme ad un 
piccolo menu’(linea 8110). Provate con tutte le opzioni e 
guardate come lavorano (se non avete la stampante in 
funzione, non premete P(rint) o provocherete un "Dl-vICE. 
NOT PRESENT ERROR"). Le opzioni N(ext) o E(scape) vi 
riporteranno al menu' iniziale, dal quale saranno 
disponibili tutte le funzioni. 

Le opzioni 2 (display) e 3 (search) vi daranno 
l’opportunità' di stampare tutti i dati in memoria. 
Declinate ciò' se non possedete una stampante o se non vi 
interessa la cosa. L'opzione 3 vi dara* l'elenco dei campi 
e vi chiederà' su quale campo vogliate ricercare il tilt. 
Re voi selezionate un campo da 1 *a 6 vi sara' chiesto ui 
digitare il nome, o una parte di esso, del campo 
desiderato: per esempio, alla ricerca del campo "Italia , 
dopo aver premuto l’opzione 5 basterà' scrivere Ita o It 



per avere l'elenco dei file presenti che hanno un nome 
simile. I campi da 7 a 9 possono essere cercati in modo 
specifico da un singolo tasto, che sceglie tra due 
c ondizioni es t r eme. 

Le scheoe che soddisferanno il campo della vostra ricerca 
(.tutte le schede, opzione 2) saranno visualizzate una alla 
volta, con ai piedi un piccolo menu' contenente comandi 
quali NCext) che vi mostrerà' la scheda successiva, e 
E(scape) che vi riproporrà' la pagina iniziale. 


Opzioni LOAD/SAVE 


Il Cardbox qui listato presume che voi usiate il 
sistemaa dischi. Ogni file va registrato o caricato 
tramite il menu' iniziale, e deve possedere un nome unico. 
Il file viene quindi salvato sequenzialmente su disco, ed 
s ' completamente caricato in memoria. Ciò' limita 
l'estensione del file, ma una volta caricati i dati la 
loro gestione risulta essere molto veloce. Una 
caratteristica di questo modo di procedere e' quella che 
tutto viene fatto all'interno della memoria dei computer; 
ricordatevi sempre, quando modificate un file, di 
ri-salvarlo su supporto magnetico. 


Per il sistema a cassette 


Alcune linee del programma vanno cambiate per permettere 
a chi dispone del solo registratore di poter lavorare 
grazie al nostro programma! 

9@15 OPEN 9,1,1,k$ 

9090 CLOSE 9 
9570 OPEN 9,1,0,k$ 

9650 CLOSE 9 
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La parola "disco" va sostituita con "nastro" alle linee 
9005 e 9550. La subroutine alla linea 10000 (che legge gli 
eventuali errori di canale su disco) non e' richiesta e 
pur» 1 essere eliminata se non pensate in un prossimo futuro 
di fare uso di un floppy disc. Se pensate di poterlo 
fare, preparatevi un programma che permetta di caricare 
dati da nastro e riversarli su disco. Vi basterà' cambiare 
le linee 9015 e 9080 per tornare al programma principale. 

pnìrhe' Cardbox opera su files memorizzati nella memoria 
del computer, le operazioni tramite i sistemi a disco o a 
cassette sono identiche. Porterà' naturalmente via piu 
tempo l'uso del nastro (purtroppo il sistema e' da 
considerarsi peggiore principalmente per questo motivo), 
ma oltre a ciò' l'unico inconveniente consiste nel fatto 
che vi sara' piu' utile usare UN nastro per ogni file s.se 
le 250 schede basteranno ai vostri propositi, non avrete 
problemidi questo tipo). Le cassette dedicate al computer 
potrebbero risultare troppo brevi per l'uso che ne dovrete 
fare perciò' vi consiglio di munirvi di cassette con una 
autonomia abbastanza lunga. 


'■=. F’EM F'ECS - ** 1 *4 — ARCHIVIAZIONE 

-j FO p.T = 0TO38 : Bt = B* + CHR$<325 MEX 
10 V*="r]"+LEFT*<B*, 1S>+CHR*C5> + 

-PO: < '• -«-CHE:*: < i -4.-1 > 

*0 C1* = CHR*<5>+CHR*< 1 ■47’ > -t-l_EEXX < 

.«fì p 1 1 l + CHPl I 1 1 7 : FOR J= 1 TOS : 

I ip* < ?<£ ! HEXT : c: 1 X = G 1 X C M E X < 

30 C2X = I_EEXX < EX , 4 > 

C24 ! = C£*- , -CHEX ■' 1 1 ?"■ - FOR J=1T021 

fmex < s>e ;■ = mexx : c2x=G2x+cmex c i ©x -• 

, 0 c; 2 X = e2X-t-GEEXX C EX , 8 > + CHE* •' > 

4 C3X = L_EEXX ■' EX , 4 > 

—.0 C:3X = G3X-*-CHEX ■' 96 > -^UEEXX C EX , 3© 


V«=H CRPB 

EX , 2S > 

O 1 X = C: 1 X-4-C 

: C2X = G2X-+- 

> -V G M E X < 3© 


-;■=; C4*=LEFT1 < r:X , 4 > 

, .0 0<4.x = C4X-«-GMEX < 1 ©e > 


EOET=1X03© : G4X = G4X-*- 


OMEXC3e> : HEXX 

^ - f— -i ^ — F' ^4-X H E X F 103>"*-CMEX , _ 1 4-4 > 
30 POKE33280-2 

e© POKE53281-IO 
3© EIMRX< M, 5> , E CM, 2> 

IO© DX ■: 0 > = " HOME»******!" 
i ©T. ex*' 1 '.-■'vih>*i>***« , i" 

11© D*<2)“ "CIXXR-' 

11^; EX f 3 > *=• " EEOV I MG I Rk*l" 

12© B*C4>-"SXRXO«MliH" 

125 DX < 5 > - M HOXE „ 

13© EX •'©> = ■■ VENBIXR < SXM > ” : OX<© 
E" : GX < 1 > = " SHON X M VEHCITfiB" 




•■GL I EMX 
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" : 05* < 2 > = " SEST I M 


: O* < 4 > = ' 
V I ! 


oh i or 


= " M " 

schede: ■ 


= PR I 


SRL 


>50 

EOE 


130. F*a> = "ESTINTO < SXM > 

TOS!" Gt<3> = "CORRENTE" 

140 F*<2)="VXSITRTO < SXM > 

HT R F'ERSONRI— E" : G* < 5 > = " st-l O hi 
10.0 M = 0 

0.00 E = R : PRINTV* 

O 1 O PRIHT"1?W*HIJMERO DI SCHEDE 

020 PRIHT"W«1 : RGGIUNGI MUOVE 

MT JSTB02 : ELEMCR TUTTE l_E SCHEDE 

0.30 PRINT"WW3 RICERCR TERMITE SCHEDE 

040 CE I MT " «044 CRRICR FILE" TRIHT"»IB5 
V R Eli— E * ' 

OOO GET I T I E I :*<: •• 1 " OR I *> " O " THEMOOO 

I =VRL < I * > : I F I > 1 RHD I C>4RNDN*=0THEH 

0 3 0 ON I GOTO600 2000, 1 OOO , 3000,3000 
feOO IEM—MTHEM RE I MT " WW3CHEDE E I M I TE ■' 

J= 1 TO2OO0 : MEXT = OOTOOOO 
fc 1 O M = M-*-l TRIMT"T3SCHEDE ** M " W 
<520 EORT=OTOO 

E30 PRIMTD*< J>j : IE K4THEMPRIMT"»**I+II 
64 0 I E T = 4 THEMEE I NT " l»>II TRL I RHSBHHI 
600 IFJ = 3THEMPRIMT">**FIS*I" 

660 IMRUTTT 

630 I ET T = 4 '• THEMEE I MT •' HD" 00T0630 

6SO I ELEM ■' TT >26THEMT * = LEET=T r T T . 26 > 

630 R* ■' M , JT > =TT : EE I MT 
300 M EXT 
310 EOEJ=0TO2 
320 ERIMTF*fJ>.: 

330 OE T I T IFI*0"S"RMDI$0"N 
340 EE I MT I * : F < N . J •> = RSC .' I ■> 

300 ME X T 
360 C = M 
330 GOSUE80O0 
330 OOTOOOO 

0 0 0 

WWQI CRMPI SONO w 
MT J+l D5TC _T > : MEXT 
MT J-*-l F*U-6) : MEXT 

CRMEO CERCHI3 < 0 = E E E 


" THEM330 


1 

000 

DOSI l 

E: 

3000 

1 

e«ie» 

EE I M 

T 

V*■EEIMT" 

1 

020 

EOE 

J 

—OTOO:EEI 

1 

030 

EOE 

._T 

— 6TOS = EEI 

1 

e»-* e» 

EE I M 

T 

" OTOQURLE 

F 

J M X F’ET > •• 



1 

oso 

OET I 

-T 

: I E I T < ” O 

1 

oeo 

V = VRL 

<!»> — 1 : IE 

1 

070 

I EV> 


THEM1200 

1 

080 

EE I MT 

"TOURLE S 

1 

" W M 




1 

e»!=>e» 

X NPU 

T 


" 

• T "i 1 ’ • 

OOTO 

1 

030 

1 

100 

P" = O 

o 

= o 

1 

1 OS 

0 = 0-*- 

1 


1 

i i e» 

3^: = Fi 

T 

< C , V > S —LI 

1 

ì se» 

FGRX 

= 

1 TOS 

1 

1 30 

I FM I 

r» 

* < ST , X , LEI 

O 

: X = S 

F = 1 



1 

i -^o 

MEXT 


I EO-C MTHEM 

1 

1 so 

I EF = 

o 

THEMEEIMT 


TROV 

RTO ■■ 

: 1 

EOE T = 1 TO: 

1 

1 60 

GOTO 

1 

OOO 

1 

se» e» 

F*F> I M 

T 

V* 

1 

210 

F RI M 

T 

"MMWEL Cl 

1 

SSO 

F*R* X M 

T 

ia- 3 • = >• o» 

1 

SSO 

F*F* I M 

T 

" M ' M " — ” O* 

1 

240 

F*F* I M 

T 

" ME- I CERCI I 

1 

230 

GET I 


: I E I » ” 

1 

260 

O . = Fi O 

o 

< I * • 

1 

270 

0 = 0 : 

F 

OPC — 1 T I H 1 

1 

S •*=: O 

I FF •- 

r 

• V — 6 > «8TH 


I E V == — 1 TI 


»"THEM1OOO 

:mooo 


C!T ' I EO# = 


MEL CRMEO"V-»- 
THEMEE I MT 


— LEM •' S* > —LEM < O* >41 


M ■ O * 


1 — O r THEMGOSUEQ 00 


1 o = 


1 3 > " S» IESSUM CRMEO 
MEXT OOTOIOIO 


< V —6 

< V —6 


• . 

*- • 


1 " 
* 2 > 
* ^ -4 

o 


CERCO 


M " 
THEN 1 2?! 


M« *» i < l I : : i il ii i 
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PP X NTTHB •' 3 > " HOH F I ' 


1290 MEXX 
1300 00X01150 

1500 FF I MXVX " WWW" 

CHEDE no CERCARE" 

120 pQpj=iT02000 : HEKT : 00X0500 
GOSUB3000 
0 = 0 

C: = C-t-l GOSUBSOOO 
IFC<HXHEH2050 
00X0500 

pr i nx •• xnr^uo i cohxihurre fi visurlIì-ì 

F = 0 ' GEX T X TFT X = " S- ” XHEHP= 1 REXURH 
I F I XO " M •• XHEM3O20 
REXURH 

OFEM-4 .• -4 : CMD4 

FOFI = OXO-4 • PRIHXFltCC.. J> ! Ut 
:CLOSE4 
4020 REXURH 

8000 PRIHXClt : PRIHXC2# 

SO1O FOF J = 1XO1e PRIHTC3* = MEXX 

©020 FF I MXO-4X _ 

©030 RPIMX".i T T ' * 1 1 ’ i " 1 

S04O FOR J : 

©050 F OP J*=6X08 : PRIHXJ+1 " : 

< C j _^ > 45 2 — < F < C .• J — O = ?■ 8 > > : HEXT 

0 100 F*R I MT " ’’ 

Silo PFIMX" 3JCHSAME I O : SE*- IMI M© 

© SPKJSX SJHSCIXAM" 


1 

2000 
20-40 
2050 
200-0 
2070 
3000 
©PE3 
3020 
3030 
30-40 
-4 000 
-40 1 O 


PF I M X 44-4 


TTT 11X 1 III"1 Ì1X'T~ 
■ C 1 • « " 

= 0X05 PRIHTJ+1 " 


©X C C j . J > ” W" : 

»»»»»*»■" GX 

SE-.BTTRMP 


S 1 30 
S 1 30 
S 1 -40 
S 1 50 
S 1 OO 
S 1 0-5 
S 1 30 
S200 
82 1 O 
9220 
333© 


j—^ pr -p j ^ : J pr j ^ = • * 0 • 1 X H EE t"’-l 3 2 0 *3 
ÌFIf="E"THEH8300 ^ 

XFI *:*= 3 •• THEHGOSIJB4000 : 00X03 1 ^ O 

! pr ! *: = p> •• THENRETURN 
IFI X = " U ■* XHEHC = H : REXUR M 
I F"F= 1 XHEHOOSUB40O0 : REXURH 

OOXOS 1 20 _ __ 

PFIHX"QUFlLE CAMPO COME I 3 ' 0 = 3X0F > 

5ET T X IFIXC”O"OFIX>"3"XHEM321O 

I F I X= " 0 " XHEMPF I HX " TT'EX : 00X03 100 

_I =VFIL- < I X > — 1 ; IFI >'5XHEHF < C - I —O > =334- 1 1 

*<FCC^I—e>=83> : 00X03000 

8240 I MPUX " MUOV I DHTn*H>FllBr' : XX ^ 

S250 I FXX= " X " XHEHPF I MX " XT' 00X032-40 

8260 IFLEHCXXJ >26XHEHX X=LEFXX<XX- 20 > 

0280 < C .■ I > = TX 

9290 GOTO3000 __ 

330© PR I NX ■' SE I SICURO? < S/H > 3 ^RHCE 

i I fi 9FHEDR" : RIJSCITRQ" 

33 i 0 GETI^ IFI^="N"THENPRIMX"H" ’B*? : OOXOS1 

©© 

99^0 IFI#<>"S"XHEN8310 

8340 FOF J=1 1 15X01736SXEP41 FOFET. 2 


83 


50 FOFJ=1130X01 


T l 'I" EX " «" EX ' 


S3SO FFINX 
CAHCELLOB" _ 

8335 M=M—1=IFC-HXHEH85O0 
o^70 FORJ—CTOM : FORK=0TO5 
8375 ©X < .J .- K > =FX CJ+l - K > - MEX 

S3SO F < J . K> = F< J+1 - K> - MEXXK 

8330 0=0—1 

8500 REXUFH 

3000 FF I HXVX : IHPUX":eHOME 
I F«X = * •• XMENKX= "FI LE " 

3005 PRIHX"*MEXXI EI300 : 


O = M E X 
8 : POKE-J - 230 : WEX 
:PRIHXTBB<15>"« 


FOFK 


= 0X02 


F I LE>*»+I««I" 1 K.5 
PREMI '3FOCE' 


a 
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URNnO OK" 

1 © OEX I * - IFI tOCHRt < 32 THEH90 1 © 

9015 0PEN9 .. 8 , 9 " ®0 " + K* + " S . W " 

9020 PR I MT ■" SRI_VO "K» 

9025 RR I MX«© , H 

9030 FDR J = 1 TOM : FORK = 0TO5 
°04O PRXHT#9, R*< J . K^> 

©©5© NEXT FORK=0TO2 
9060 R F? I NT#9 .. F< J, K > 

©©3© HEXTK . J 

©0S© CLOSE9 : GOSUB10000 
©O©0 GOTO500 
9500 IFW=0THEN9540 

95 10 PRINT" M3E I SICURO^ (- 5 /.^ ■ -e- 

I FILE" 

S>5520 ©EX X * IFI *= •• M ■■ THEN500 
9530 IFI*O"S"THEN9520 

■■ x£enkÌ=^ t " ** ,OME F 1 

S«mIIo ,=, o^: M ^" W ' 1ETTI DISCO : «emi 'sprce 

SeGl SjlZZJ Z. F Z *<>CHR* 6 32 > THEH9560 
IHPUT#9 .. M 

PorxI 1 1 Éork-StSs 1 MT " "" M " CF,MF " 1 

I HPUTH9 .. R» < T . K > 

NEXT : FORK«*0TO2 

I hput #9 j. f* - <■ jt . k > 

HEXTK .. T 

CLOSE9■GOSUE1Q©©0 
GOTO500 

OPEN 15..©.. 15 

I NPUT# 1 5 , E 1 , E2* , ET3 , E34 


CRNC _ 


.: K 


Q 


9570 
9580 
©5©© 

© 6 ©© 

©e 1 © 

©© 2 © 

©63© 

©64© 

©65© 

© 66 © 

1 ©©©© 

1 ©© 1 © ___ __ 

1 ©©2© I RE 1 =©XHE:M 1 ©©3© 

10©3© PRINT" mio I ©O ERROR : W* 

1 ©©4© RR I MXE 1 PR I HXE2* RR I MXE3 RR T NTP4 

x?mSrre - 1 MT RR 1 MT " F-R ‘ EM 1 trIto pe^con 

^5IÌi^ R èÌxuR^ MEN 10060 


Utili routines 


Subroutines 


Print @ 

Col ® 

Auto-1ine 
Auto-deiete 
Auto-renumber 
Sort 
Format 
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Subroutmes 


Questo programma e' in effetti una collezione di 
subroutmes,"alcune delle quali troverete (almeno credo) 
molto utili. Comunque, la ragione ha come scopo 
1'illustrazione di un'idea che, indipendentemente da ciò' 
che pensiate su queste particolari routines, troverete 
molto utile. 

L'idea consiste nel fatto che probabilmente ognuno 
sarebbe in grado di costruirsi una biblioteca di 
subroutmes utili, e che ho pensato che sarebbe stato 
meglio avere a disposizione in un unico programma una 
serie di utility pronte all'uso. 

Eviterete cosi' di caricare ogni volta la particolare 
routine che vi interessa e vi troverete a portata di mano 
tutto quanto e' necessario ad una buona programmazione. 

Scoprirete che, usando questa tecnica, i numeri di linea 
che generalmente voi assegnavate alle subroutme restano 
nella vostra mente, e che vi basterà' battere "GùbUB 5" 
per richiedere di premere un tasto, cosi' facilmente come 
il resto dei comandi Commodore. Creare una raccolta di 
subroutines e' il modo piu' semplice per arricchire il 
BASIC del 64. 


Note del programma 


Lo scopo delle varie subroutines viene spiegato nelle 
linpe 8Q-97, e dovreste prenderla anche voi come abitudine 
quella di aggiungere delle istruzioni REM per ricordare 
dove si trovi il comando che a voi serve. Questo vi 
aiuterà' anche al termine della programmazione, quando 
dovrete cancellare tutte le linee che non sono piu' utili 
al programma, o che non avete usato. 


Le linee dalla 100 alla 26-0 sono una semplice 
dimostrazione di quali siano le caratt-eristicne delle 
varie subroutines in azione, in modo tale che siano 
necessarie solo poche altre parole per impararne 1 uso. La 
subroutine 30 permette l'uso di un "carattere programmati. 1 
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su una matrice di punti di una stampante che ammetta 
questa operazione (molte stampanti Commodore possono). 
Alcune stampanti ad es. non posseggono il segno "/'•', e 
questo handicap può*essere risolto grazie a queste poche 


linee di programma 


® REr-1 RRG . **15 — SUBPOUT I ME 

1 GOTO100 

^ F-R X MT-TPHE <-4 > ” F-REM I UH THSTO PER COHT I HU 

M K! E 2 

e Q*= : GETQ* : I FC!*= " " THEH6 

2 RETURN 

^ ® = ^R^ ^ 1 45 - POR- J= 1 TO33 : Elhip •&- o-—. 

^HEXT BJ=Bt + CHR*f 145) 312 

1 1 RR X NTB# : RETIJRH 

13^E°RK= 1 T0LEN < C T > : I RM I BT < c* . K .. 1 > «= •■ . •• THE 

1 E NEXTK = . 00 •• : RETURN 

1 3 L=LEN < C* > —K 

1 ® IFL=0THEHC*=C*+"00":RETURM 
19 IFL=lTHENC*=C*+"0" : RETURN 

mIu 1FL>2THEN C*=LEFT*<C*,LEN<C»)+2-L):RET 

l_! R’ M 

23 BR = 1 4 : BG=6 : R O = 1 5 4 

POKE53280 .. BR : ROKE5323 1 13(3 : RR I NTCHR* .r R 

27 RETIJRH 

30 OPEN3 - 4 • S : RORK = 1 TOG : RERDR : RST = R3*-^P HR 
*<«> MEXT RRIMTWS, RST CLOSE3 : RETURN 

3 1 HRTFI0,9,63,73,e5,33 ■.JRM 

REM OOSUIBI5 - OET RHV KEV <WITH MESS3G 

GOSUB6 = GET 3H V KEV CUITHOUT MES 

GOSIJBIO = BEL_ETE OURREHT SCREEH L 


3 1 REM 
ERGE > 

32 REM 
I HE 

33 REM 

34 REM 

35 REM 
RL 

3G REM 


GOSUB1 1 = 33 1G < SUBSEQUEHTLV > 

GOSUB13 = C33H RORM3TTIHO OR C* 

GOSUB23 = RESET COLOUR3 TO ORIGXH 


GOSUB26 = SET COLOIJRS 33 
B BV BR. BG 3HB RG 

37” REM GOSUB30 =* ROUHB S I OH POR 
RBLE RRIHTER CHR#C254> 

*< 142> : REM BEMOS 


SREC X R X E 
RROGR3MM 


1 

©© 

RRIMTO 

1 

1 © 

BR = 0 ^ B 

1 

2r© 

RR I NT ■■ 

1 

3© 

R O R. J = 1 

1 

•=*© 

0031J B 1 

1 

S© 

GOSIJB5 

1 

e© 

GOSIJB 1 

1 

7”© 

PPIHT" I 

1 

3© 

IHRUT" 

3TT3 

2 I OHE 

1 

so 

GOSUB1 


L_3 RORM 
RROGR3M 


’ 3RRIVEBERCI " 

'BIG X T3 BEI V31 ORI <PER 

OT 

___ T RRIMT"RORM3TT3TO ”OT 

^OO RRIMT"ROSSIEBI IJNR ST3I1R3NTE 
M3BILE?" 

210 GOSIJB6 

230 IRQ*="H"THEH260 

240 IFQ*0"S"THEN21 O 

G0SUB30 OR E M 4.4 RR THTH4 . OMRT<254> C * : 

2GO OOSUB25 



Frinì ® 


Se avete usato altri micro-personal prima di acquistare 
il Commodore 64, probabilmente avrete sentito la mancanza 
dell'istruzione FRINÌ ?• (o, su altri computer, FRINÌ Ai/. 
Questa e’ una semplice istruzione BASIC che posiziona il 
cursore e la successiva stampa-dati in un punto ben 
preciso dello schermo. Per esempio! 

FRINÌ ® 0J"CIAO" 

stamperebbe la parola "CIAO" alla posizione HOME. Ma non 
,ul Commodore 64! 

Per posizionare il cursore usando il BASIC Commodore e' 
necessario usare i caratteri determinati dai 
control li-cursore (tutti quelli irritanti caratteri 
inversi di cui sono pieni molti listati) o usare una lunqa 
ed ingombrante serie di CHR$(17), ecc. Questa subroutine 
risolve tutti questi problemi simulando la funzione FRINÌ 


(Naturalmente non potrete usare ques 
direttamente all'interprete BASIC di 


ta funzione chiedendo 
esequir1a ; dovrete 


invece scrivere "P=x! 


60SU6 1600", dove 


e' la posizione 


nella quale voi volete scrivere) 


ad esempio ! P=0! SOSUB 1000: PRINÌ"CIAO" 

avra' il medesimo effetto della suddetta funzione FRINÌ®. 


Note del programma 


La linea 1010 chiama una se 
iniziai izza le due stringhe di 39 
di 29 cursori in basso (0$). Una 
stringhe sono state create, quest 


conda subroutine che 
cursori a destra (A$) e 
volta che queste due 
a parte del programma 


non verrà' piu' eseguita. 




La linea. 1030 lavora in modo tale che il BASIC Commodore 
riconosca LEFT$'D$,D) e LEFT$CA$,A) come espressioni 
legittime, anche quando A o D risultino uguali a. 0. 

L'espressione LEFT(D$,0) dovrebbe apparire come 
un'istruzione impossibile da eseguire, ma grazie a. questo 
espediente ciò' e’ possibile con la creazione di una 
stringa nulla, che non produce alcun effetto sullo 
schermo. 

Le linee 10-30 non fanno parte della routine, e 
dimostrano semplicemente come si possano stampare dei 
Cuori a piacimento sullo schermo. Notate che i cuori sono 
stampati vicini, a dispetto del fatto che non ci sia una 
semi-colonna al termine della linea 20. 

Un buon suggerimento per voi; alcuni dialetti BASIC 
permettono che l'espressione BRINI $ sia seguita da due 
numeri, rappresentanti le coordinate x e y della posizione 
di schermo richiesta (molto utile per i programmatori che 
hanno difficolta' a dividere per 40). Cercate di 
modificare la routine in modo tale che provveda in tal 
senso. 


S R EM PRG. ** 1 E-— PPINT ra 

1 0 FORP = 0TO959 

20 GOSIJB 1 O00 : F’R” I NTCHR» < 1 1 !3 > 
30 HEXT END 

10O0 F’EM F*~ . . . : GOSIJB 1 0 0 0 

I EFlX = " " THEHGOSUB 1 0S0 
D»INT<PX40> R=P-40*D 
FÉ I HTCHPt < 1 3 > L . E E X * ■' B! 


10 10 
1 020 
1 03O 
Fi > .: 

1 040 
1 Cif~.0 
1 OE0 


= ERIMX 0 F- 


n > -»-LEEX# < Fi»- . 


RETURN 
EOF- J— 1 T033 
rix = " ” EOR:.J = 


Fi* = FI*: 
■ 1 X024 


-+-CH 
: rcr 


e* ■' ; 

=n» 


> : ME 
HR* < 


1 2 > : MI 


1070 RETURN 


E' abbastanza 
numeri 0-15) che 
effettuabili coi 


semplice rammenterò i codi 
r appr esentano 1e posaibi 1i 
colori su1 Commodo re 54. Non 


ci-coìore (i 
combinazioni 
e' semplice 
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ricordare il corrispondente codice ASCII 1 riguardateyi 
tabella a pag. 12 se non vi rammentate nulla), 
conseguenza, cambiando il colore di stampa 
difficile che cambiare il colore del bordo, 
come ho già' detto nel primo capitolo, usare 
per cambiare questi colori, ma c'e' anche 
POKE da ricordare. 


la 
Di 

diventa piu' 
Voi potete, 
la POKE 646 
la locazione 


Sareste in grado di scrivere 
PRINT C0L$<6> 

per cambiare il colore di stampa in blu? Usate questa 
subroutine una volta e lo potrete fare. 


10 REM *** ERO .#17— COLI! 

«>000 D I MCOL* < 1 = > 

2010 FORJ=0T015 
«■020 RERDC 

2030 COL#<J>*CHR*CC? 

2040 MEXT 
20=0 RETURN 

20C0 DHTR 1 44 .. = .. 20 1 =0 > 1 =0 .- 30,31,1 = S * 23 ., 

143.. 1 S0 .. 1S1 , 1=2.. 1=3^ 1 =4 > 1 = = 


Auto-line 


Questo e’ un programma di utility che vi da' accesso ad 
una serie di routines riguardanti le linee di programma o 
una. porzione comune delle linee stesse. 

Per usare "Auto-line", caricate il programma PRIMA di 
iniziare la digitazione di un. programma. Quindi, arrivati 
ad una serie di linee contenenti una massiccia dose (ad 
es.) di istruzioni DATA o PRINT o ogni altra espressione 
molto ripetuta, battete "RUN 10900". 

Vi sa.ra' chiesto di immettere il numero di ^linea di 
partenza, l’incremento da dare e 1'istruzione BASIC con la 
quale ogni linea deve cominciare (poiché' DAiA^ e PRINT" 
sono i due esempi piu’ ovvi, potete selezionarli con la 
semplice pressione di un tasto). Il numero di linea e la 
parola scelta appariranno sullo schermo, con il cursore 


55 




posizionato in modo tale da permettere l'entrata del 
successivo testo riguardante la linea di programma. Ad 
ogni pressione del tasto RETURN la linea sara' memorizzata 
e comparirà' la linea successiva con la medesima prima 
istruzione. 

Per uscire dal programma premete RUN/STOP e il vostro 
programma, insieme alle linee che avete appena digitato, 
verrà' 1is tato suIlo se he r mo. 


Note del programma 


Questo programma sfrutta una delle caratteristiche del 
Commodore 64. Ogni volta che premete un tasto, il codice 
Ab-CII di quel tasto viene registrato nella memoria del 
computer, fino al momento in cui verrà' richiamato. 
Possono essere memorizzati fino a dieci tasti in questo 
modo. In tditing 'quando cioè' non gira alcun programma) 
avete un rapporto diretto tra la tastiera e lo schermo, ed 
un carattere viene visualizzato appena dopo battuto. 
Comunque dovete sapere che quando gira un programma e' 
spesso possibile premere diversi tasti prima che vi venga 
richiesto dal computer, che ne terra' conto se intendeva 
proporvi un'istruzione INPUT o GET. 

II buffer di tastiera e' locato agli indirizzi 631-640, e 
un'altra locazione, l'indirizzo 198, indica il numero dei 
caratteri memorizzati nel buffer. Normalmente i caratteri 
entrano nel buffer grazie al solito metodo (premendo un 
tasto) ma e' anche possibile, tramite POKE, immetterli 
t r 3.Hi i te un p rogr amma. 

La linea 18218 simula (con POKE) tre caratteri RETURN (il 
carattere ASCII e' 13) nel buffer di tastiera e il numero 
3 nella locazione 198 segnala che tre valori sono 
memorizzati nel buffer. A questo punto, se non ci fossero 
istruzioni INPUT o GET, i comandi verrebbero effettuati 
senza particolari effetti. Ha date un'occhiata a quello 
che accade nel frattempo! 




La linea 10100 stampa il numero di linea e la parola in 
BASIC precedentemente scelta. Le linee 16120-10166 vi 
permettono di terminare la. linea di istruzione, come 
programmate di solito, e quando l'operatore preme RETURN 
iCHR$(13) alla linea 10150), le linee 10130 e 10220 
stampano la seguente informazione sullo schermo: 

A = [pross.num.di lineai: N = [incremento): 

A$ = [comando BASIC) 


GOTO 10106 


Quindi alla linea 10220 il programma finisce. Ha 
ironicamente l'espressione FINE e' proprio dove il 
programma comincia ad essere interessante. Non appena il 
programma e' finito, vi ritrovate in editing ed ogni 
comando memorizzato nel buffer di tastiera viene 
immediatamente visualizzato, a cominciare dai tre RETURN 
che avevate inserito tramite POKE precedentemente. Dopo 
che il cursore e' apparso in HOME, subito prima della ‘me 
del programma, l'effetto dei tre comandi RETURN e' lo 
stesso che si ha dopo la digitazione di tre linee di 
programma sullo schermo. In altre parole: 

1 - Il comando BASIC che avete appena dato e' stato 
incorporato nel programma (primo RETURN) 

2 - I valori di A, N e A$ sono memorizzati m tre 
locazioni (secondo RETURN). Questo passo e' necessario 
perche’ il primo punto ha alterato il programma, causando 
la perdita e l'azzeramento di tutte le variabili. 

3 - La linea "GOTO 10100" viene eseguita (terzo RETURN) 

Cosi', non appena il programma sembra essere finito, ecco 
che riparte nuovamente dalla linea 10100. 

Una seconda caratteristica di questo programma e' la 
re-definizione del tasto RUN/STOP. Premendo questo tasto 
normalmente si provoca uno stop al programma, ma e' 
possibile disabilitarlo mediante il comando 



POKE 808,225 


Molti programmi commerciali includono questa istruzione 
per evitare incidenti da. parte degli operatori inesperti. 
Per riabilitare il tasto RUN/STOP occorre aggiungerei 

POKE 808,237 

Una volta che RUN/STOP e' stato disabilitato, il tasto 
stesso può' essere usato per un'istruzione GEI; RUN 
(shiftato) ha un codice ASCII di 131, e STOP (non 
sci flato) ha un codice ASCII di 3. La linea 10120 
controlla quando questo tasto viene premuto (dopo che e' 
stato disabilitato alla linea 10110) e provoca il salto 
alla linea 10300 che lista il programma. Il ciclo di 
ritardo alla lineai 0300 e' necessario per permettere 
all'operatore di usare il tasto RUN/STOP prima che venga 
di nuovo disabilitato, altrimenti il comando LIST non 
verrebbe mai raggiunto. 

IO REM PRO. # 13 — FIUTO — 1_ I ME *?***■= 

1 OOOO PP I NTCMP* < 1 47 > " I N I 2 I O FIUTO — L I ME " i O 
ME* < 1 T > 

10010 INPUT” PRIMO NUMERO DI LINER" Fi 
10020 INFUT"INCREMENTO IN <STEPS> DI” i N 
10030 PRINTOME*0/>"l=DflTR" 

1 00-40 PR T NTCHE* <17>" 2 = PR I NT " -#-CHR* < 3-4 > 

1 0050 PRINTCHR# < 17) "3=RLTRI CSPECIFICR>" 
CME* <17? 

1 0O6O OETG* I PO* < " 1 ” ORO*:> " 3 " TMEN 1 0060 
10070 0=VPU<G*> : IFQ=1THENR*="DRTR” : OOTO1 
O 1 OO 

10030 I FQ = 2THENR*= ” PR I NT ” -«-CMR* C 3*4 > OOTO 1 
O 1 00 

1 0030 I NF-UT " COMRNDO ” .: P* 

10 1 OO PR I NTCMR* C147>J CME* < 1 7’ > i CME* C 17> ; R 
J P* J 

10110 POKE30S.. 225 

10120 OETO* IFQ#=CHR*<3>ORQ*“CHR*<131> T H 
EN10300 

10130 IFQ*=""TMEN1O120 
10 1 -40 POKES03 .• 237 

10150 I FQt = CHRt L 1 3 TMEN 1 O 1 T'O 
1016O PRINTO* .: : OOTO 1 O 1 20 

1 O 1 70 0 = 0 I PR I GMT* C P* . 1 > =-CMR* < 3-4 > TMENP* = 

L-EFT* < P* . I_EN < P* > — 1 > = 0= 1 

10 1 30 PR I NT ^ PR I NT " P= " P-»-N 1 " : N= " N ■ ” : P*= ” CM 

R* < 3-4 > ; P* .; OMR* < 3«4 > .; 

10130 IPC= 1 TMENPR I NT '• -t-CMR* «r 3-4 > ” i 
10200 PRINT 

1 02 1 O POKE1 33 ■ 3 = POKE631 > 1 3 POKE632 , 13: PO 
1' E633 >13 

1O220 PR I NTCMR* C. 1 7 > OMP* < 1 T - > ” OOTO 10 1 00 " C 
MP* < 13 > ; END 

10300 F O R J = 1 TO-400 NE X T f M I MOtì, 237 : LIST 


Auto-delete 


Questo programma vi permetterà' di cancellare diverse 
linee di programma consecutive. Come esempio estremo, può’ 
cancellare un intero programma (anche se sarebbe molto 
piu' facile usare l'istruzione NEW), ma viene 
principalmente usato in fase di editing per eliminare 
un'intera sezione del programma non voluta Esso non può' 
cancellare totalmente se stesso poiché' se viene 
cancellata la linea 10050 non viene piu' eseguita 
l’istruzione GOTO alla linea 10960, ed il programma si 
ferma. A questo punto dovrete cancellare manualmente le 
poche righe che rimangono. 

Usate il programma nello stesso modo di Auto-line! 
caricatelo prima di programmare e quando vi serve la sua 
funzione, digitate "RUN lOOOO", seguito dal primo numero 
di linea che va cancellato, dall'incremento (se avete 
usato diversi incrementi, inserite il valore 1), e 
dall'ultimo numero di linea dove il programma si deve 
fermare. 


.Note del programma 

Se avete letto la spiegazione del programma precedente, 
allora il procedimento di questo nuovo programma vi sara' 
già' chiaro in gran parte] esso non e' altro infatti che 
un altro spettacolare esempio di come usare il buffer di 
tastiera. 

Questa volta l'operatore , avendo specificato i parametri 
iniziali, non deve assolutamente intervenire poiché' il 
programma si modifica da solo senza bisogno 
dell'intervento umano. Due linee di informazione vengono 
visualizzate sullo schermo! 

[numero di linea da cancellare] 





A-CIinea+incremento]*B= Elinea finale3;N=Eincremento3 
GOTO 1OO50 


Il comando END alla linea 10090 rimette in editing il 
computer, dopo che i due caratteri RETURN sono stati fatti 
eseguire (linea 10080) dal buffer di tastiera, causando 
l'esecuzione delle due istruzioni poste sopra. 

Il numero di linea visualizzato causa 1'e1iminazione 
della linea stessa (primo RETURN) mentre l'altra 
istruzione fa rientrare le variabili ed effettua il "GOTO 
10050", facendo proseguire il programma (secondo RETURN). 


10000 REM ERO . ** 1 3 — ROTO DELETE + + + 

1 OOO 1 ER 1 MTOHE:* 7 < 1 : EOR.J — 1 TO 1 O : EE J MT : ME 

KT 

1 OO 1 O ER 1 MT ■■ ROTO — UELETE .: OHR* < 1 -4 ~ > 

1 0020 IMEUT"ERIMO MUMERO n I l_ I MER •• .. R 
10030 X MPIJT ■" I MOREMEMTO I M CSTEPS> ri I ; M 
100*10 X MEUT " l_ll_T I MO MUMERO L_ I MER ■■ ; E: 

1 0050 ER I MTCMR* < 1 3 > OHRT OH ET f 1 7 > R 

1 OOE.O RE I MT " R= ” R-4-M " : E= 11 E " : M= " M ■■ : OOTO1005 
O " 

10070 IFR>BTHEMER X MTCHR$ C 147) LIST 
1 QOSO EOKE 1 33 .. 2 : EOKE63 1 .. 1 3 EOE E >S 32 .1 3 
10030 ER I MTCHRT < 1 3 > .; : EMD 


Auto-renumber 


Questa e’ una routine che rinumera, le linee di tutto il 
programma seguendo un passo scelto dall'operatore. Basta 
digitare i quattro parametri richiesti: il primo numero di 
linea da cambiare, il nuovo numero di partenza, 
1'incremento riehiesto, ed i1 numero dell'u1tima 1inea da 
rinumerare. Quando la rinumerazione e' stata completata, 
l'intero programma viene listato 

Solo i numeri di linea che precedono le istruzioni 
verranno rinumerate Tutti ì GOTO e ì GOSUB dovranno 
essere corretti manualmente con i nuovi valori. 
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Note del programma 


La locazione nella quale il programma BASIC viene 
immagazzinato nella memoria del Commodore 64 può' essere 
scoperta facendo riferimento agli indirizzi 43 e 44. Il 
programma non e 1 memorizzato in quelle locaziomi; ci sono 
semplicemente dei puntatori che rivelano le locazioni di 
memoria occupate, attraverso la formula 
PEEK < 43 )+256*PEEK( 44 ) 

Questa rivelerà' il punto di partenza del programma 
BASIC; la fine, naturalmente, dipenderà’ dalla sua 
lunghezza, ma e' possibile scoprirla tramite 
PEEK(45)+256KPEEK(46) 

Questa seconda formula, che non e' attualmente richiesta 
dal programma di rinumerazione, legge tramite PEEK il 
puntatore della variabile memorizzata, che e’ sempre 
locata immediatamente dopo la fine di un programma BASIC. 

Ogni linea di programma viene memorizzata nei seguente 
modo ; 

[2 bytes contenenti l'indirizzo della linea successiva] 
seguiti immediatamente da C2 bytes contenenti la linea di 
numero corrente] seguiti immediatamente da [il testo della 
lineai 

Cosi', se noi chiamiamo l'indirizzo di partenza di un 
programma BASIC "S" (vedi linea 10050), 
PEEK(S+2)+256tPEEK(S+3) sara' il primo numero di linea, e 
PEEK(S)+2S64PEEK(S+ ì) sara' l'indirizzo de11a 1inea 
successiva. 


Nell'ultima linea di programma i due bytes contenenti il 
successivo indirizzo hanno entrambi valore 0, che e' un 
indirizzo impossibili per una linea di programma. Se 
durante il funzionamento di Auto-renumber questo punto 
fosse ric e r c a to, la linea 1 0080 (I F SI = 0 ...THENLIST ) 
riconosce che la fine del programma e' stata trovata e 




pone fine al programma terminando la rinumerazione. In 
pratica, voi sarete spiacevolmente costretti a rinumerare 
le linee di programma con valori superiori a quelli dello 
stesso Auto-renumber, perche' l'altra parte della linea 
1008© (...OR L>B...) controlla che il numero di linea 
corrente sia piu' alto dell'ultima linea della routine. 

N.B.! Auto-renumber, Auto-delete e Auto-line sono tutti 
listati in questo libro a partire dalla linea 10000. Voi 
potete, naturalmente, rinumerare due di loro per 
immetterli tutti e tre in memoria nello stesso momento, 
potendo contare cosi' su di un potente aiuto alla 
programmazione. Inseriteli in memoria prima di digitare i 
vostri programmi, ed al termine usate 1'Auto-delete per 
cancellarli. 


1 0000 

1 000 1 
< 17 > 

1 00 1 0 
I O ì ; R 
1 0020 
> ; R 

1 0030 
1 0040 
H I O ■> " i 
1 0030 
1 00<S0 
1 007*0 
1 0080 
1 0030 
10 1 00 
10 110 
10 1 20 


REM *** PPG . 4420 — FIUTO REMUMBER *• 

RR 1 MTCMR* < 1 •‘17’ > ■■ l_ I ME REMUMBER •• i CHR* 

INPUT"PRIMO NUMERO BI l_ I MEFI <VECCH 

I NPUT ,§ PR I MO MUMERO BI LINER <MUOVO 

IMPUT” I NCREMENTO IM CSTEPS> B I •• i M 

I MPUT "ULT I MO MUMERO BI L. I MEFI < VECC 

B 

S=PEEK(43?+236*PEEK<44> 

S 1 =PEEK < +2564REEK < S-*- 1 > 

l_ = PEEK < 3-«-2 > +2564PEEK < S+3> 

I PS 1 =*0ORI— >ETHEMI— I ST 
I FL<fiTHENS = S 1 :QOTO100<S0 
R 1 = I MT < R,-'25<S > : R2 = R —R 1 *256 : R = R-»-M 
POKES + 2 .. R2 : POKES-t-3 ..RI 
S=S1 OOTO100S0 


Sor t- 


I programmi di riordinamento alfabetico o numerico sono 
una parte vitale nelle operazioni di gestione dati.Questo 
programma illustra come in modo efficace il Commodore 64 
possa riordinare una serie di numeri in ordine crescente. 
Vi darò' le necessarie indicazioni per modificare il 
programma per avere inoltre: 





a) Riordinamento decrescente numerico 


b) Riordinamento in ordine alfabetico di caratteri-strinqa 

La subroutine che parte dalla linea 1600 e' tutto quanto 
vi e' necessario per il processo di riordinamento; tutto 
il resto e' una semplice cornice. Il programma vi da' 
l'opportunità' di trattare il riordinamento di 2& numeri 
casuali scelti dal computer o di numeri digitati da voi 
(in ogni caso, se usate piu' di venti numeri dovrete 
modificare la schermata che li visualizza). 


Note del programma 


Non servono parole per spiegare il funzionamento di 
questa routine, perche' piu' avanti potrete trovare un 
aiuto visivo che vi illustrerà' graficamente ciò' che 
esat-tamente sue c ede. 


—; REM RRG . #2 1 - SORT 

10 RRIMTCMR*C 

20 RRIMT"SORT ROUTIME" 

30 RR X MT” 1 : DEMO” 

0 RRINT”2= ENTRATA DFATFA" 

—i0 GETI :IEI*<”1"ORI =*> ” 2 ”THEN50 

«50 ONVAL < I * > GOTO 1 00 > 200 
100 M = 20 
110 DIMS < M> 

120 RORJ=lTOM 

130 S<.D=IHTCRND<n#1000? 

1- 10 M E X T 

130 GOTO300 

200 IHRUT"QUANTI MOMERI " J M 
210 DIMS < M > 

220 EOR.J — 1 TOM 
230 INPUTS<J > 

2- 40 MEXT 

100 RRIMTOMR^< 1 47 > i "DISORDINATO" - - "ORDINI 
FATO " 

310 EOR-T —1TOM ERIMTS MEXT 

320 A = VAL <TI*) : GOSUB 1 000 »=l = V FA L_ < T I * > —FA 

330 RR I NTCHR* < 1 3 > 

340 RORT = 1 TOM = RR I NTTAB < 20 > S < -J > '• MEXT 
350 PRIMTH"SECONDE" : END 
1000 FORJ=1TOM : S = 0 : RORK=1TOM — J 

1010 T = 3 < K > : IFT>SC K+l >THEMS<K>=SCK-*-l > = S < 
K-*- 1 > =T • S= 1 

1020 MEXTK : IFS=0THEMJ=M 
1030 MEXT-J RETURN 




Format 


Questo programma serve esclusivamente ai possessori di un 
sistema a dischi. Hi spiace per il resto di voi che in 
questo paragrafo non troveranno forse nulla 
d'interessante. 

Presumendo che non sia la prima volta che prendete in 
mano un floppy disc, penso che sappiate che un disco prima 
dell'uso va formattato (dovete essere certi della, fedeltà' 
dei disco in vostro possesso, e soprattutto trattarlo con 
scrupolosita' per essere certi che riesca a non perdere i 
data che voi sopra conserverete). Formattare un disco e' 
molto semplice e abbisogna di un'unica, istruzione; il 
probìeme si pone quando noi per errore perdiamo il 
contenuto di un disco perche' non ci siamo accorti che 
conteneva già' dei dati. Questo perche': 

1) il comando di formattazione e' identico a quello di 
ri-formattazione. Quante volte ci e' capitato di perdere 
irreparabilmente dei dati in questo modo ? 

2) ogni errore compiuto all'atto della formattazione può' 
giocare qualche brutto scherzo anche diverso tempo dopo, 
pregiudicando la conservazione dei dati. 

Un terzo problema, se avete una memoria pessima come la 
mia, consiste nel ricordarsi quale sia l'istruzione di 
formattazione senza dover andare ogni volta a controllarne 
l'esattezza su qualche manuale. 

Questo programma, che voi potete salvare su disco, 
nellasperanza che vi fidiate facendolo girare con il disco 
nel drive, vi permetterà' di formattare, ri-formattare, 
controllare Precedentemente se in esse* siano o meno* 
contenuti dei dati, se il disr.-, ha un'esatta intestazione, 


Infine, dato che non e' una buona idea quella di dare lo 
stesso nome e lo stesso numero li identificazione (IO) a 





piu' di un disco, il programma controlla i valori 
difettosi e aiuti i molto pigri ad inserire una coppia di 
valori (basta premere RETURN). 


Note del programma 


Il fulcro del programma e' nella linea 96, che attende 
tramite una GEI un carattere dalla directory dal disco 
inserito nel drive. Se raccoglie un carattere, significa 
che e' presente una directory, e viene visualizzato un 
messaggio di allarme (linee 126-150). Altrimenti, senza la 
presenza di una directory, può' proseguire il processo di 
f orma t tazione £1inea 116). 


Questo e' un interessante capovolgimento del concetto di 
errore. Infatti quando, normalmente, si riceve un "Uh" 
significa che non ci sono errori. Nel nostro caso, invece, 
la presenza di un "Oh" ci avverte che il disco e' già' 
formattato, e compare un avviso di errore. Solo se arriva 
un messaggio di errore il programma può' proseguire. 


—, . #22 — FORMRT 

IO POKE53281,1 : PRIHTCHR*<144> 

1, H*“"DISCO“ : I HPIJT " NOME DISCO" H* 

:&> C*="01 " : IHPUT“CODICE D I DEHT I F I CRZ I O 


1F1 I FLEN < C* > C>2THENPR I NTCHR* < 28 > " DUE ORR 
ilTTERI PER FRVORE ” CHR* < 1 44 > : 130X030 

• ;0 PRINT ^ PRIHT"HOME" . LEFT*<H*. 1 «S > 

• O PR I MX EF? I MX " OOD I CE ” - CX 

.--0 OPEN15.8, 1 55 

F<0 PRIHX315. "I" 

<8 OPEH8.3 ■ S ^ " X ” ■ GEX#8 • 3* • CLOSES 


I 00 
I 1 0 
l 20 
1 30 
N UN 
i 40 

l 50 
1 30 
1 7*0 
1 30 
I 30 
200 
• t 0 
220 
.'30 

•S00 
1 0 


COSUB500 
IFW>20XHEH200 

PRIHX’TISCO GIR" FORMRXXRXO. * 1 
PR I MX " PRETI I E»=»HI QURWDO SEI PRONXO 
ALTRO DI300." 

FRI NT " PREM I F? PER RIFORMRXXHRE. 

PRINX"PREMI X FER FIMIRE-" 

GEX I * : IEIX=”FA ,, XHEM30 
IFI F = •• F? " XMEM200 
IFI X = •• X " XMEM230 
00X0130 

EF? I MX# 13.. " M0 : " -+-MX " .• ” -*-OX 

GOSUB500 

PR I MXl-J XX .- V . 2 

CLOSE155:EMD 

I NPUX3 1 5 . W .. XX V .. 2 

RETURN 


CO 




Cose da ragazzi 


Interprete PHOT 
Quiz di Geografia 
Contando 


Interprete PILOT 


PHOT e' un linguaggio di programmazione molto piu' 
semplice del BASIC, che permetterà' anche ai bambini molto 
piccoli di cominciare gia'a scrivere i loro primi 
programmi. E' particolarmente adatto ai quiz, ed anche per j 
questo un programma in PHOT contenente dei quiz e' stato J 
incluso in questo libro; ma 1’immaginazione del bambino j 
riuscirà' senz'altro a trovare delle applicazioni piu' ' 
divertenti e interessanti. Ricordate: PHOT e' adatto, non j 
per fare dei giochi per bambini, ma per insegnare ai 
bamb ini 1 ' uso de 1 c ompu ter C a Uri men t i, a f f e r mando c i o ’, 
avrei aggiunto che programmare in PHOT e' piu' divertente 
che in BASIC, e voi avreste voluto creare dei programmi 
anche senza il mio aiuto). 


Programmazione in PHOT 


Ci sono due tipi di informazioni PHOT: le ISTRUZIONI e i 
COMANDI. Un'istruzione può' essere usata come una parte 
del programma e non produce effetti se non dopo il RUM. Un 
comando no può' essere usato come una parte di programma, 
ed e' sempre eseguito immediatamente (questo, come avrete 
già' capito, in completo contrasto con il BASIC nel quale 
tutte le "parole" possono essere usate sia come istruzioni 
sia come comandi II BASIC, comunque, ha delle piccole 
differenze INPUT e DATA non possono essere usati come 






comandi, e LIST , sebbene possa essere usato come 
istruzione, provoca un brak osi prose anima. Le isvrUi.iom 
ed i comandi PILOT non possono essere contusi, poiché un 
commando e' un'intera parola mentre un'istruzione si 
compone di una sola lettera (come nel BASIC, dove le 
parole di comando possono essere abbreviate premendo la 
lettera iniziale, seguita dal tasto SHIFT+ la seconda 
lettera. Non ci sono variazioni o eccezioni a questa 
regola. Le istruzioni, essendo di una lettera sola, non 
possono essere abbreviate.). 

C'e' una lista completa di tutti i comandi e le 
istruzioni PILO! nell'appendice in. fondo al libro, ma 
prima di descrivere quelle piu' dettagliatamente, vorrei 
menzionare le altre caratteristiche del linguaggio che 
forse avreste preferito vedere incorporate al BAoIC del 

64: 


1) La numerazione delle lettere e' automatica. I numeri ui 
linea partono da 0 e si incrementano automaticamente. 
Quando un'istruzione viene immessa dopo il^ numero di 
linea, , essa viene inclusa nel programma e sullo schermo 
appare la linea successiva. Se un comando viene scritto 
dopo un numero di linea, esso viene eseguito, dopo che lo 
stesso numero di linea e' stato giudicato valevole. 


2) Il controllo della sintassi e' immediato. Mentre nel 
BASIC la scritta "SINTAX ERROR" compare durante 

l'esecuzione di un programma, nel PILOT questo controllo 
avviene automaticamente e se la linea non e 

sintatticamente esatta, non viene accettata nel programma. 


Comandi 


Ci sono otto 
capire e per 
comandi BASIC. 


comandi nel PILOT, abbastanza facili da 
molti di essi praticamente identici ai 
Essi sono: NEW, RUN, LOAD, SAVE, LIST, 


LLIST, BASIC and EDIT , 

I primi cinque non richiedono spiegazioni. LLIbT e un 
comando trovabile in molte versioni BAoIC '‘.ma nun 
Commodore 64) che lista il programma in memoria tramite 




una stampante. BASIC vi fa uscire dall'interprete PILOT 
per tornare al linguaggio tradizionale. EDÌT, che deve 
essere seguito da un numero di linea, causa l'immediata 
interruzione dell'auto-numerazione, e visualizza la linea 
richiesta. Non e' possibile scrivere sopra la linea 
sbagliata ma occorre riscriverla totalmente. E' permesso 
solo aggiungere linee di programma, non cancellarle o 
inserirle, sebbene le linee non volute possano essere 
cancellate grazie all'uso dell'istruzione "t" (vedere piu' 
avanti). 


Istruzioni 


Ci sono sei istruzioni valide per un programma in PHOT. 
Esse sono! 

T J C A M e * 

T (come Type) equivale al comando PRINT in BASIC, eccetto 
che nel testo non c'e' bisogno di includere gli apici. 

J (come Jump) equivale al GOTO del BASIC. 

C (come Clear Screen) pulisce lo schermo e assegna i 
colori dello sfondo; equivale a PRINTCHR$(17) e POKE 

53281,n. 

A (come Answer) equivale ad INPUT 
•t equivale a RtM. 

M (come Match) non ha un esatto equivalente in BASIC. 
Quello che fa e' definire una risposta "preferita". 
Quindi, ogni volta che un’istruzione A viene incontrata, e 
l'operatore immette un valore in memoria (presumibilmente 
una risposta ad una domanda appena fatta tramite T), 




questo valore viene confrontato con la risposta preferita, 
'•e sono identiche compare un "flag", altrimenti un "flag" 
viene cancellato. PILO! cerca la traccia del "flag status" 

, ne fa uso quando interpreta istruzioni condizionate. 

.Condizioni 

Il PHOT possiede due condizioni, Y e N (per "Yes" e 
"No", ma se voi preferite, Vero e Falso). Ciascuna di 
queste due istruzioni può' essere "appesa" (vedere fu' 
avanti) in una istruzione T o J, nel qual caso 
l’istruzione verrà' esguita solo m condizioni ben 
determinate. Ad esempio, 1'istruzione: 

TY LA VOSTRA RISPOSTA E' ESATTA 

visualizzerà' la frase SOLO quando il "flag” e' inserito, 

,■ questo naturalmente avverrà' solo dopo che la risposta 
dell'operatore ad un'istruzione A e' stata confrontata e 
trovata identica alla risposta preferita dall'istruzione 
M. 

.Il Punto e virgola 


Ogni istruzione-lettera DEVE essere seguita 
immediatamente da un "appendice". Ci sono solo tre 
possibili "appendici": le due condizioni (Y e N) 
menzionate prima e (il punto e virgola) 

Le istruzioni C, A s H devono sempre essere seguite da un 
punto e virgola. Le istruzioni T e J possono essere 
.equite da un punto e virgola (se non sono condizionate) o 
da una Y o una H. L'istruzione t. strettamente parlando, 
dovrebbe essere seguita da un punto e virgola, ma poiché 
rappresenta la medesima funzione che svolge la parola REM 
nel BASIC, facendo ignorare al programma ciò' che segue, 
e 1 sintatticamente indifferente scrivere dopo di esso. 

Il punto e virgola non ha una funzione specifica se non 
quella di rendere tutte le istruzioni F'ILoT, di controllo 




o altro, lunghe due caratteri. Sebbene le istruzioni PHOT 
debbano considerarsi corrette solo quando si riferiscono 
ad una singola lettera, può' essere utile per la vostra 
memoria avere sottomano l'intera serie formata dai comandi 
in due caratteri: 

t; ty in j; JY jn c; A; n; *; 


.Messaggi d'errore 

Ci sono solo cinque possibili tipi di 
identificano con i seguenti messaggi: 


errore, che si 


SINifiX ERRORI avete dimenticato un comando o sbagliato a 
scrivere un'istruzione. In entrambi i casi ciò' che avete 
digitato viene ignorato e siete messi in grado di 
riscrivere correttamente il vostro messaggio. Un errore di 
sintassi non può' essere visualizzato mentre un programma 
in PILOT sta girando. 


A WITHOUT M ERRORI Cosi' come nel BASIC siete avvertiti 
quando il programma incontra un'istruzione NEXT senza un 
precedente POR, nel PHOT il computer vi fa. notare che 
avete usato una. A senza una precedente M. Comunque voi 
potete avere diverse A seguenti una singola M. Una volta 
che una risposta, pre-determinata e' stata, creata tramite 
un'istruzione M, essa rimane 
istruzioni M. 


alida senza, successive 


provocato 


dalla poco 


UNDERINED LINE ERRORI viene 
piacevole auto - numerazione del PILOT comunque, vedrete 
quest'errore durante la. programmazione se volete 
visualizzare una linea inesistente, o durante il corso di 
un programma, se un'istruzione .J e' seguita, da. un numero 
di linea superiore alla fine del programma. 


OUT OF MEMORY ERRORI II programma, ha. rag 
de11e 1inee digitabili (100 ììnee) 


giunto il massimo 


INVAILO C0L0UR ERRORI Avete digitato una. linea nella 
gua 1 ■ e un'istruzione C e' seguita da un nume r o 3. Idi t uo r i 
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del raggio 0-15, o uguale a 13 (che e' riservato al colore 
di stampa). In verità' questo non e' altro che un 
particolare tipo di SINTAX ERRuR, e per questo non. può' 
■•ssere visualizzato mentre un programma gira. 

Nota importante: sebbene questi siano solo errori 
ricorrenti tramite il PHOT, e' possibile incorrere nei 
consueti errori BASIC. Un esempio degli errori ricorrenti: 

Sintax errori avete commesso un errore nel digitare 
1 ' interprete PHOT. 

Break errori avete premuto inavvertitamente il tasto 
RtJN/STOP (questo tasto può' essere disabilitato - vedete 
le note del programma Auto-line). 


Device not presenti avete provato ad usare 
L LIST senza avere la stampante accesa (o LOhD o 
avere la periferica corrispondente, a nastro 
inserita ~ guardate il paragrafo "Note del prog 


il c ornando 
SAVE senza 
O d i s c o, 

n —. r.% iv. -, f f r. i | | ' 

* CUHMJd. i *_*• 


i n basso). 


Se qualcuno di questi errori dovesse ricorrere (e 
riconoscerete se errori BASIC o PHOT dalla presenza del 
familiare messaggio READY), vi troverete fuori 
tali ' interprete PHOT, nel Basic di tutti i giorni. 
Prevedendo questa situazione, per rientrare 
nell'interprete stesso senza cancellare il programma m 
PHOT ancora in memoria, basterà' digitare "GOTO 100". 


E per cominciare... 


Voi ora sapete ogni cosa che vi può' ser 
programmazione PHOT. Se volete saperne di piu' 

, fate girare il programma "Quiz di geografia", 
sara' piu' chiaro. Quindi cominciate subito a 
vostri programmi in PHOT e rendetevi conto di 


vi re nella 
digitate 
e tutto vi 
scrivere i 
quanto sia 


facile farlo. 
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Note del programma. 


Tutte le parti importanti dell'"Interprete Pilot" sono 
corredate da istruzioni REM, cosi' da non avere 
difficolta' a capire come lavora il programma. Le opzioni 
LOAO e SAVE (linee 6000-6080 e 7000-7070) nel listato sono 
per i possessori di drive. Per chi possiede solo il 
registratore, e' necessario cambiare le seguenti due 
linee! 

i * 

6020 OPEN 8,1,1,"PILOTPROG" 

7010 OPEN 8,1,0, " PI LOTPP.OG" 

(entrambi i possessori possono elaborare queste semplici 
istruzioni in modo tale da permettere di chiamare con nomi 
individuali i programmi in Pilot) 

Solo altri due appunti per aiutarvi nella digitazione del 
programma : 

I messaggi di introduzione fasulli (linee 20 e 30) 
possono essere presi direttamente dai reali messaggi 
introduttori che appaiono all'accensione del Commodore 64. 
Posizionate il cursore prima di ogni messaggio, inserite 
un numero di linea e il messaggio entrerà' a far parte del 
vostro programma. Non e' necessario, naturalmente, usare 
lo stesso stile della Commodore; se state scrivendo un 
programma per bambini, perche' non inserire il loro nome 
in un messaggio di introduzione? 


I caratteri grafici nelle linee 140-190 sono 


in ogni 


caso, il carattere shiftato sul tasto 
seconda lettera del particolare comando 
particolarmente importante alla linea 1 
quasi identico alla normale lettera "L" 


rappresentante la 
PILOT (gues to e 
80, dove SH1FT+L e' 


5 REM ***** ERG. 4*23 —E I LOT IMPERERETE ****** 

1 O EOKE53280 13 EOKE3 328 1 .. S ER I MTCHR» C 1 •*» 

7* > .: IZ.MRT < 1 S3 > 

20 ERIHT" ****** COMMODORE 6*4 E I LOT V0 

**** ■■ 
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64K RRM SVSTEM 


1 00 E I 


.ti PRIMT PRI NT ” — . 

I . iT l_ I MES PREE” 

.«i E I MRT < 1 00 > 

V® PRIHTN TRE < « > 1 l M ~ UM 

' ® ?F?*-"PUH"nRI*="R ,"THEM1000 

‘ 2 ì ^ ì .. r T ST " OP I * = " L-> " THEN2000 

' _‘S ^ P " LLI^ T " OP I *= " LL" THEN3000 

' 2 ? F ì J - '• Efl^ì C " OR I " ®* " THENEND 

' ' '2 ì ^ J .. ” (-1R I T = •• S-t- •• THEHÉ000 

;i>! lKS^£??lvÌ?iSS-^t3TS:sS. T 

r ^ 4N=r ,, EDIT"THEN4000 

tìQ IFLEFT^^ ^ 

1 • V"OR J* = "C"THEH5000 


1 -*-M I ET 


• OR-TT 


O0TO90 1 0 
i000 REM RUM 
1010 MRT ="" 

i«l£0 FORJ-0TOL-1 . 

,.130 J* = LEFT»<fl»<J^; 1 >- 
I 0-10 IFJ*="*"THEN1900 

i . i*50 KT- — M I ET •: RT < - T > ' «- - 1 5 

i.iea 

, ,, 70 I f_TJ:="T"THEM1200 
1030 IFJ*""R"THEN1300 
1030 I P JT= " M " TREM 1 ^100 

i 100 I P JT= " J TREMI ?500 

1110 I P-TT = " C " TMEM 1 E00 

i . -00 REM T „ _ 

12 10 I PKT = " " TREMI .• 00 _ __ 


X r j T = " " TREM 1 300 


ì 220 X P < KT= " V ■■ RMEP = - i > OR < KT= » M ” RMEP - 
IM1700 

l 230 GOTO1300 

I 300 REM R 

1310 IMRUTRMT _ 

1320 IPMRT=”"TREM3O20 

I330 P=RMT=MRT 

13-4 0 GOTO 1300 

I -400 REM M 

1-410 MRT=RT 

1-120 GOTO 1300 

1S?Ì TfckÌ="; ■■>or<kt-»vrmdp—i>or<k- 
RMEP==0 > TREM 1 SS0 
1S20 GOTO1300 

1 %%% I FJ<0ORJ>L— 1 ORTO X MT < T > TREM3030 
1S3-0 J=J—1 GOTO 1300 

Hl0 C=VRL<P*> : POKE33281.C 
,eS0 PT=CRRT<147> 

1700 RRIMTPT 
1300 MEXT 
1310 GOTO100 

2000 REM I— I ST 

'010 P0RJ = 0TOI_ 1 

2020 RR I MT J .1 TRE <85 RT < -J > 

2030 MEXT 

20-10 GOTO 1 00 

3000 REM L-I—IST 

30 10 OPEM4 .• *1 

1 R O R-T =- 0 T OI——1 _ 

3030 RR X MTH-1 J = TRE < 3 > RT <-J > 

30-10 MEXT 


RMEP = — 1 > OR < KT = 


= 0 ? TR 


3050 
306 0 
4000 
40 10 
4020 
4030 
4040 
55000 
SO 1 0 
55020 
5030 
5040 
*0 
5050 
5060 
5070 
0 

5 1 00 
5 110 
5 1 20 
5 1 30 
6000 
60 1 0 
6020 
t- 0 310 
6040 
6050 
6060 
6070 
6000 
3000 
3*0 1 0 
7*020 
7*030 
3040 
3050 
3060 
3030 
3000 
30 1 O 
3020 
3030 
304 0 
3050 


CI_OSE4 
GOTO100 
REM EniT 

N-VRL < M I ri* < I * 5 > > 

I FH>L — 1 ORMCOORMO I MT < M > THEM3030 
RR I M4M : TRB < 3 > FI* < M > 

GOTO 110 
REM SVMTF3X 
IEJ* ="*"THEN5100 
K* = MI H* <1*2.1 > 

IFK* = " " THEM5050 

I E < J * C> T " RHDJ*<> " J '• > OR < K*<> " V ■■ RNDK 

M" > TMEM3010 

IFJ*<>"C"THEH5100 
C»VRI_ < M I 33* < I * . 3 > > 

I FC<0ORC> 1 50RCO I MT < C > ORC= 1 3TMEM305 ! 

IFL>100THEN3040 
FI* < M .I = I * 

I El_ = MTHEMI_ = l_-*- 1 
GOTO100 

REM SRVE <11130 VERSIONI 

I EL_ = 0THEM 1 00 REM MO RROG TO SHVE 
OPEN8.3.3 .. " 00 : R I L.OTRROO .. S .. W " 

RR I MT**S .. I_ 

ROR T = 0TOL-1 
RR I MT**S FI* < JT > 

MEXT 

CI_OSEG 

GOTO100 

REM LOFI II < ri I 30 VERSI OM > 

OREMS-3,3."ORILOTFROG. 3. R" 

I MPUT#9 .. L_ 

ROR.T = 0TOL_— 1 
I MRUT**S , FI* < J > 

MEXT = CLOSE8 
OLOSE3 
GOTO100 
REM ERRORE. 

RR I MT ” SVMTFlX ERROR" GOTO 1 00 
PRIHT"R WITHOUT M ERROR " '■ GOTO 1 00 
RR I MT UHDEF I MED l_ I ME ERROR" GOTO 100 
RRIMT"OUT OR MEMORV ERROR" GOTO100 
PRINT'TMVRLID OOLOUR ERROR” GOTO100 




Quiz di Geografia <PILOT) 


La persona che ha scritto questo quiz conosce la 
geografia molto meglio di me. 

Vi ricordo che lo scopo del programma non e' tanto 
guello di saggiare la vostra cultura, guanto quello di 
mostrarvi il piu' semplicemente possibile le 
caratteristiche dell'interprete PILOT. 




c;o 

T; QUIZ DI GEOGRAFIA 

t; 

T; ì - INGHILTERRA 
T;2 - U.S.A. 

TJ 

TJPREGO, SCEGLI 

M; 1 

a: 

JN36 

MjNO 

T;MANCHESTER E ! NEL LANCASHIRE 
A; 

TNNO - PIU’ GRANDE MANCHESTER 
T;E' LIVERPOOL NEL LANCASHIRE 

a; 

TNNO - MERSESYDE 

T; E' LANCASTER NEL LANCASHIRE 

A’ 

TYSI’ LO E’ 

T; QUAL E' LA CAPITALE DEL NORFOLK 
M;NORWICH 
A; 

TNE' NORWICH 

T; QUAL E' LA CAPITALE DEL SUSSEX 

a; 

T;NON C'E' ALCUN PAESE 
T; IN QUALE PAESE E ! CANTERBURY 
MJKENT 
A ; 

TNNO - KENT 

t -vuoi provare con gli stati uniti 
Misi' 

A ’ 

JN70 

T: QUAL E' LA CAPITALE DELLA FLORIDA 
MiTALLAHASSEE 
i A ; 

JY43 . jrl . 

* T;INDIZIO - 2 ’L'S - 2 'S’s - 2 'E S 
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41 a; 

42 TNTALLAHASSEE 

43 T; NEW YORK E' LA CAPITALE DELLO STATO DI NEW YORK 

44 M; NO 

45 £ ; 

46 TYCORRETTO MA 

47 TNNO LO E' 

48 T; QUAL E' 

49 M;ALBANY 

50 A ; 

51 TNE' ALBANY 

52 M;SI' 

53 T;CARSON CITY E' LA CAPITALE DEL NEVADA 

54 A; 

55 TNLO E' 

56 T; E' ST.JOHN LA CAPITALE DEL MINNESOTA 

57 A: 

58 TYNO NON LO E' 

59 TNGIUSTO 

60 T; LA CAPITALE E' ST. PAUL 

61 T; QUAL E' LA CAPITALE DEL TEXAS 

62 M;AUSTIN 

CO £ . 

64 TNDOVETE CORREGGERE PRIMA DI CONTINUARE 

65 JN61 

66 T; 

67 Tifine del quiz 

CO T ; 

69 li; SI’ 

70 T; DAI ANCORA RUN 

71 A; 

72 JYO 

73 C ; 5 





Contando 


Quanto fa 



(Questo e' un programma per bambini molto 


:> picco 


Molti bambini troverebbero difficile rispondere alla 
domanda quando scritta in quella forma, ma non avrebbero 
problemi se trovassero 13 gettoni e 1-5 gettoni '-un la 
richiesta di addizionarli. Questo programma permette a chi 
lo usa di rispondere correttamente in due modi; dapprima 
la somma viene visualizzata come sopra, e quindi, se viene 
inserita una risposta sbagliata, i numeri vengono mostrati 
come due file di quadrati colorati. Si sente inoltre un 
suono ad ogni quadrato che appare, cosi' la risposta può' 
essere data o contando i quadrati o i suoni emessi. 


.Note del programma 


La difficolta' della somma può' essere variata alterando 
la linea 30. sebbene raggiungendo una somma superiore a 


video. 


venti sarete costretti a modificare 1 uscita = ! - ^ 

Come là linea stabilisce, il primo numero apparirà- sempre 
nel raggio 11-26, mentre il secondo nel raggio WO, id - 
risposta comporterà’ sempre la pressione di due td.sri. 

Il eie In di ritardo alla linea 690 e 730 determina la 
velocita' alla quale i quadrati colorati vengono POKEati 
sullo schermo, velocita' che può' essere variata a seconda 
dell'abilità’ del bambino. 





Non ho incluso alcun tipo di algoritmo per il calcolo del 
punteggio. Potreste aggiungere una routine che assegni un 
punteggio per le risposte, un punto per ogni somma esatta 


ed un "bonus" a chi non 
colorati (non 


quadrati 


ri cor 


mai 


dimenticate 


all’ausilio dei 
modificare 


l'istruzione RUN alla linea 436 con un GOTO, per evitare 
che ad ogni nuova domanda venga cancellato il punteggio). 


3 REM*#* ERG . 4*23— COMTONDO ««« 

1 U POKE33280 15 POKE3328 1,1 RF: I NTCHRt < 1 

7 > CHR* <31 > 

20 X = RNDC-TI > : B-34272 : FOR-T = 1 X033 : B*=-B*~*-C 

HRt< 32 5 : HEXT 


30 X = I MX < RMD < 1 ^*1 1 >-*-10: V= I MX < RMD <15 «20 5 

1 : z — x V* 

-10 RR I MXXFlB < 17?J QUANTO FFI" XRIHT 
■50 M = X ■■ GOSUB500 

60 RE X MX " -t- " 

7-0 M = V GOSUB500 

S0 FR X MX RE I NXTFlB <19>; OHE» <10 15 : CHE* <10 1 

> ; C:ME X < 30 > 

30 RR I HXXHB < 1 7* > I NPUXH* 

100 Fl = VFtt_ < FI* 5 : I Ffl-ZXHENPR I HXCHR*< 1 36 > i CH 
R * < 17?, XRB flb?,; ” ESRXTO : 00X0-100 
110 IEEXHEM30G 

1 20 RR I MX CHR* < 17>; CURI < 26 > : RR I MX " PROVfi I 
M QUESXO MODO” - RR: X MX 
130 RR I MX : RR I MXXFIB < 1 8 5 X 
1 -10 M“X : F‘— 1 342 : GOSUB600 
150 RRIMX : RRIMXXHB <13 5 V 
1 60 M = V R*= 1 622 : OOSUB600 

1 T*® I MXCHR* < 30 5 = EOR.J — 1 XO 1 0 : RR I HXCHR* < 1 

43> MEXX 
1 00 R=>— 1 00X030 

300 RRIMXOHR*< 1235 : RRIMXB* : RRIMX"MO. LF> 

RISPGSXfl ERH-Z 


-100 FORX= 1 T08 : RRIMXB* : MEXX 

-110 PRINXCHRX 158)XRB<2) " SUPREMI 

IO PER UM'RLXRH DOMRNDfl" 

420 OEXR» = I FfllOCHRl < 32 > XMEM-120 
-130 RUM 

500 R*=-SXR*<M5 : IELEM<R*5—2XHEMR* 

510 RRIMXXHB< 18)CHR*< 1-1-15 i R* 

520 REXURM 

600 POR J= 1 XOM 

610 ROKE54236,15 

620 ROKE54277,15 

630 ROKE34278,15 

6-10 ROKE34273,20+J 

650 ROKE54272 , 20-*-J 

660 ROKE5-1226, 12 

620 POKER-»-T«2 , 160 

630 POKER+J#2 + D , I MX < RMD < 1 5 « 1 2 >-*-2 

630 RORK=1 XO100 : MEXX 

200 ROKE5-1226,0 

210 ROKE33222 , 0 

220 ROKE5-1223, O 

230 E ORE » 1 XO 1 00 MEXX 

2-10 MEXX 

250 REXURM 


LO SRRZ 


— CHR* < 32 




storia 


Ogni quadro racconta una 


Byte 

Bits 


And/Or 


CHR Set 
Hex Tabies 
Mempeek 
Demo Sort 


Byte 


Non c'e' niente di piu' noioso di un manuale che parli di 
un computer. Volete veramente che vi spieghi cosa sia un 
byte? Sono sicuro di no. Comunque, perche' spiegarvi 
cos’e' quando avete un computer che ve lo può' mostrare? 


Date RUN al programma e cosi' vedrete... UN BYTE. 


Il byte assumerà' qualunque valore cne 
selezionato, ad eccezione dei valori esterni al 
0-255, nel qual caso si avra' un valore casuale, 
il byte comparire.' l'esatta spiegazione di come 
rappresenti quel valore. 

Semplice, non e' vero? Voi ora sapete tutto ciò 
dà sapere sui bytes. Chi ha piu' bisogno di manual 


avrete 
raggio 
E sotto 
il byte 


che c'e' 
i? 


B-, ppMFRO. - BYTE *** _ 

, Vnp T=1T|13 : p! ■" CI > = T3 o > C HRt ■' 1 fc-6 ■' *"4 ET. . T 

1 % icHRf < Ss > + CHR» < ie> FOR.J- 1 T03 B4r < 

1 . —P:* •- 1 > +CHR* ■' 1 '■ ' HEXT 

: p, E: f^pJ+CHRt < 1 46 > +CHR* < 1 ** > 

**0 F>F> X HTCHP » < 1 *4 T" > C:IHF?P < 1 44 > 


79 










!50 PDt'E53230.3 POKE53231 .. 1 

fc>© IHPUT“INSERISCI UH NUMERO < © — 255 > ” M 

• '© H— I UT •' M '■ • I FHC0ORN>255THENH= I UT < RND f 1 "t 

*256 > : 

80 Z=0:FORJ=7TO0STEP-1 

S*G _ F’F: I NTCHR» C 1 9 O HR$ C 17> ; CHR* C 1 7’ > 

1 00 T=0 — J>#4 — -4 

110 F-R! T NTTRE < X > "BIT" : F'E I NTTflB C X > T : F-R- I NT 
1 20 R-R I NTTRE -TX— 1 > 2 TJ 

1 3© P< J > = XHX < N.'2 TX > : M*=M — E f.TT *2 -TX 

1 -4© F-Fr I NXXRB < X > B* < B < X > > 

1 *21© PRINXCHRJC 1 3 > : FORK» 1 STO JSTEP- 1 : F F I MX 
CMEXC 17> : : HEXX 

1 t • ‘U Z = Z + E r _T *2 TJ : ZT=STRt < B < X > *2 TJ > 

1 ■- © F- R: I MTE <J>"# 2 X ._T XFIB < 1 © > ■■ = •• THB < 1 © — 

L_EM < 3 F > > 2^ 

1 €:© MEXX 

1 3© PR X HTCHRT •: 17V XOXHUE " XFtB ■' 1 e —LEM -T ©XE* 

C 2 > > > 2 

2©© PR I NXCHRT < 1 7 > " PREM I UN XFI3XO PER COM 
X I NURRE ■■ 

21© GEX2»:IF2*=""XHEN210 
22© GOXO-4© 


Bits 


Ne1 precedente programma avete visto come un byte 
rappresenti un numero intero da Q a 255. Questo programma 
vi permette di cambiare il valore di un byte, accendendo e 
spegnendo i suoi bits individuali. 


I bits sono numerati 
sinistra, ed ogni bit ha 

Numero del Bit 


convenzionalmente da destra a 
il seguente valore: 

Valore (acc.) Valore (spento) 


0 (estrema des.) 1 

1 2 

2 4 

3 fi 

4 16 

5 32 

6 64 

7 (estrema sin.) 128 


Q 

@ 

0 

0 

0 

0 

0 

0 
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Il byte viene primo visualizzato con il valore totale a 0 
(tutti i bits spenti). Usa i tasti da 0 a 7 per accendere 
ogni bit, e CTRL+ i tasti da 0 a 7 per spegnere i bits. 

Vedete se riuscite ad ottenere ogni possibile valore del 
byte (0-255) accendendo e spegnendo i bits corretti. 


REM PRG. ** 27 — B I X6 ***** 

I 0 FOR J^0TO7 : RERDH<-J > ; MEXX 
.• 0 DRTR 1 4 6 .. 1 44 . ”5 .• 28 - 1 59 • 1 56 30 

*0 PRIHTCHR* < 147 > ; CHR*(144) 

-»0 POKE53280 ■ 6 : POKE5323 1 -• 1 

-.0 P=1516 D = 54272 

, .0 EOR J = RXOR4- 1 4-SXER2 
70 ROKE-T -r 160 : POKE J+D^ 13 
i IO ME XX 

,0 PRINTCHR*'" 19>TRB<58>" 

HCSS^B REM S SE0OES XO 
100 CEX I -m- IFI*=" "THEN100 
fl=RSC < I 

I Ffl>4 7HHDfK56THENC = 2 

EOR J•=0X07’ 

j prp, r J 7 =flXHEHC= 1 3 : 0=J = J 
MEXX IEJ=SXMEM100 
POKEP + D + 2*<7-n) .. O 
E = 0 : FORJ = 7XO0SXEP—1 
H = B-*- < 2 X_TOMr>< EEEK CP + D+2 


COVER 


3 1 


”CMR*<137X0 
MUMBER. 


110 
1 20 
i 30 
I 40 
1 “.0 
1 60 

1 T’O 
1 00 

2 > 

l 00 
200 


0 = 0 —4-0 : 00X0160 


1 0 


*t <r T’—J > 7 0MD 15)« 


ME XX 
00X000 


. And/Or 


Se pensassi che voi non siate realmente interessati in 
questo studio dei bits e dei bytes, non includerei questo 
programma. Comunque voi avete acquistato u Commodore 64, 
il solo computer al mondo che ritenga che il linguaggio 
BASIC si risolva interamente nella parola POKE, e cosi' il 
concetto di "bit-level” del computing e f probabilmente 
piu' importante per voi che per altri utenti di computer. 

Molti manuali di computer non fanno nemmeno cenno alle 
condizioni logiche di AND e OR, mentre il manuale d'uso 
del Commodore 64 ne introduce l’uso all’inizio del 
capitolo 5. Il manuale tratta l'uso della POKE 53280,C per 
cambiare il colore al bordo. Come sapete ogni valore da 0 



a 15 può' essere POKEato nell'indirizzo 53280, ma questo 
indirizzo, come oqni altro sinqolo byte, può' contenere un 
valore compreso tra 0 e 255. Se voi chiedete PEEK(53280), 
il valore di ritorno non sara' nel raggio da 0 a 15, 
sebbene voi abbiate appena PokEato un valore di quel tipo. 
L'espressione esatta per ottenere i valori nel corrente 
codice di colori non e' PEEK(53280) ma PEEK(53280)AND15. 

La ragione di ciò' e' spiegata dal fatto che solo i 
"valori bassi" (i bits da 0 a 3) dell'indirizzo 53280 sono 
usati per memorizzare il codice del colore - bordo.! i 
"valori alti" (da 4 a 7) hanno altri scopi. Per questo, 
per ottenere un valore dell'indirizzo 53280 che vari da 0 
a 15 occorre disabilitare i valori alti, e questo viene 
f at to da11’is truzione 1ogic a ANO. 

Usando AND con due numeri si ottiene un valore che, 
quando espresso in bits, possiede solo i bits accesi che 
risiedono in un numero E nell'altro. 

Usando OR con due numeri si ottiene un valore che, quando 
espresso in bits, mostra i bits accesi in un numero 0 
nel 1'altro. 


Per esempio, immaginiamo che PEEKC53280) ci dia un valore 
di 250. Espresso in bits (in numeo binario), diventa 
11111010. Se questo ha un AND con 15 (binario = 00001111), 
il risultato sara' il numero (sempre binario) 00001010, 
che non e' altro che il numero decimale 10. 

250 AND 15 = 10 


Il byte 000111 e' stato usato come una maschera per 
permettere di ignorare, qualunque valore fosse ritornato 
daIla POKE(53280), il va1ore a1to. 

Come facciamo a dare un senso a tutto ciò'? Fate girare 
il programma e tutto vi diventerà' chiaro. La parte 
sinistra dello schermo vi mostrerà' il risultato di un AND 
tra due bytes, e la. parte destra il risultato di un OR tra 
gli stessi due bytes. Voi potete accendere e spegnere i 


bits individuali del byte principale allo stesso modo dei 
precedenti programmi (con l'uso dei tasti da y a 7 , col 
tasto CTRL premuto per resettarli) Per accendere e 
spegnere i bits del byte mascherato, usate il 
tasto-funzione F3, quindi 1 tasti e-7 con CTRL come prima. 
Per ritornare all'originale byte, usate invece il 
tasto-funzione FI. 


PEn vfe9***R-RG . 4* 23- RHD/OR ***** 

ip- : RERDR < -J > : HEKT 
1 44.5 .. 2S ^ 1 “5S* ■ 30 • 31 

EìT = E* + CHR*<3£> ’ MEXE 
L *4 7” > ; CHR* < 1 -4-4 > 

- POKE53281 .. 1 
:• < i > = 1 167 ^ P<2: , = 1386 ■ R ■' 
(=■ r ■5 1 = 1647 : D =54272 

RJ«=P<K>TOPC KJ + 14STEP: 
K E T n .. 13 


1 .1 

FOE -T = 0EO7 ^ 

•0 

DRER146, 1-4 

:0 

FORJ—1E033 

. . i 

FEIMECHR4< 

* .0 

POKE53280 .• 

, i 1 

P<0>=1146 : 

• iT* 

R •: -4 > = 1 323 : 

• i 

FOEK=0EO5 : 

* :0 

ROKE J -• 1 30 

•0 

MEXE J K 

100 REIMECHEE 


1 -4 


PRINTCHR*': 19? : FORJ= 1 TOT. PP X MECHR» < 17 
, i e» h 1 F É I MEOHE» < 1 45 > _5 TRE < *4 > : E < «? > “ FIMO " E • 2 - 

■ : M EXT : REIMEB 
1 = ■ ■ E < 0 >RUDE< 2 > 


. : MEXE : RE I ME 

mrin evte 


I IRE < 2-4 > 5 E < 0 > " OR ” E < 2 > 

,20 EOE .J= 1 EOS : RE X MTCHR4 < 1 T 3 

I 30 RE I HTCHE4 < 1 -4“5 > 5 TRE < S > 
r p,B 23 ■> : " = "B<0> ORE ■' 2 > 

, .,g ROE T= 1 E 03 ^ RE T NTCHR4 <17” 

i -PFM T RI REE MOCIEIOHRE XI— .... — _ 

, REI HE”EREMI R3 REE MODIFICARE II— MFI- 

'l 60 G pRI ME " REEM I II— MUM. REE REEIVREE IL 

170 RE IME“EREMI OERL E IL MUM. REE RESEE 
f. IL EIE" _ 

1 QO OEE I * : I R I «=="■■ EMEM 1 30 

I90 R=RSC<I*> _ 

•00 IFR=133EHEMR=0 : GOEO180 
'10 IFR=134THENP=2:OOEO1 
220 I Ffl>47fiMDfl'-56EHEMC = 2 
■ OR < 2 TRI > ■ G0E02«0 

"50 IFR< J > I«?HEMC= 1 3 : F.= J : E < R > =B < R > RMDMOT 
<2 Tf=»> = J = 1 0 

.'50 MEXE IRT = GEMEM130 
769 FI = B 2 *« < 7* F» > 

•7*0 ROKER < R > FI , O 

%%% xrT'Ì SSnDREEK < R < 0 > -FR > > -2 > FIMD < < 1 

4RMDREEK •' R •' 2 > +FI 3 > =3 > EHEMC-2 

«Tel C=13 P IF< < 15RMDF-EEK < R < 1 7. -*-FI > 5> =2 > OR < < 1 S 
i <1 IDREEK •' R < 3 '■ -*-FI > 7 =2 > EMEMC —2 

• 20 ROKER < 3 > ■+■ R • C 

■ 3 0 OOEO100 


50 

FI = 1—1— 48 


E < R> = B < R 



.CHR Set 


Questo programma ci mostra il modo nel quale il set dei 
caratteri del Commodore 64 viene memorizzato nella memoria 
del computer, producendo dele caselle 8x8 per ogni 
carattere (uno studio di come ciò' avvenga e' 
indispensabile per quando vorrete creare i vostri propri 
caratieri grafici). 

Ci sono in totale 512 caratteri, 256 nel set grafico e 
256 nel set testo (alcuni caratteri si ripetono in 
entrambi i set), e questi sono memorizzati in un ordine 
determinato dal loro valore POKE, con i caratteri del set- 
testo immagazzinati dopo i caratteri grafici. 

Ogni carattere e composto da 4 bits (cioè' 8 bytes), e 
ogni bit e' rappresentato da un punto sullo schermo. Se un 
bit e' acceso (=1) il punto compare nel colore di stampa, 
se spento (=0) nel colore dello sfondo. E' possibile 
visualizzare un carattere perche’ esso non e' 
rappresentato da un bit ma da un'intera griglia di bits; 
spegnendo il bit esso diventerà' bianco, accendendolo 
diverrà' nero, formando la figura del carattere. 


Note del programma 


I set dei caratteri sono locati nella CHRGEN ROM, che 
occupa 4096 indirizzi consecutivi (512 caratteri, ognuno 
richiedente 8 bytes) a partire dall'indirizzo 53248. La 
gestione video e suono del Commodore 64 (QIC e SID) usa 
gli stessi indirizzi di memoria, e il computer riconosce 
la CHRGEN ROM o il QIC e SIO tramite l'accensione di un 
singolo bit del byte numero 1. Se il bit numero 2 di 
questo byte e' acceso, allora sono i chips QIC e SID che 
occupano queste locazioni, mentre se e' spento e la CHRGEN 
ROM. Come avrete scoperto dal programma precedente, i bits 
individuali possono essere accesi o spenti dalla maschera, 
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usando AND e OR. La. 1 
con 251 spegno il bit- 
altri bits. La linea 
grazie a OR e F'EEK(l) 


inea 30 con l'uso di 
numero due lasciando 
50 fa esattamente 
con 4. 


AND e PEEK(1 ) 
inalterati gii 
il contrario, 


Tutto ciò' ci rende molto difficile la lettura della 
CHR6EN ROM, ma questa difficolta' può' essere superata 
facendo una copia esatta della CHRGEN ROM in un'altra zona 
di memoria del computer. La linea 40 copia l'intero set di 
caratteri dalla ROM all'indirizzo 12288-16383 (la parte 
alta dei primi ISk di memoria RAM). Una volta fatto ciò', 
e' facile tramite delle PEEK visionare ogni carattere 
( 1 i ne a 1 SO.). 


Notate che, sebbene il computer impieghi un certo tempo 
per effettuare questa operazione, e' necessario eseguirla 
una volta soltanto. In seguito basterà' digitare RUN 100 
per far ripartire il programma. 

(Altre caratteristiche di questo programma vi saranno 
spiegate piu' avanti nel programma "Generatore di 
caratteri"). 

3 REM ###PRG , #29 — OMR SEX 

—. ROKES32S 1 .. E : RR I MXCHR* < 1 4 7” > ; CHR* < 5 > 1 ” RE 
R ERVORE RXXEMDERE UN RO " DI XEMRO •• 

1 0 POKE52 - 48 - ROKESS .- -4 © 

;?0 ROKE ^.©33-4. PEEKC56334 5RHD254 
<GI ROKE 1 .. PEEK < 1 7< RND23 1 
-I Gl FOR J-0TO4095 : ROKE 1 2288+ J .- REEK<33248+ J 
> HEXT 

“.Gl ROKE 1 .. REEKC 1 > OR-4 

r Gl POKE36334 REEK < 56334 7- OR 1 

.'Gl ROKE33272 , < REEK < 53272 7> ©MD2-40 > -+• 1 2 
1 GIGI ROKE33280.3 : ROKE532© 1^3 RR I MXCMRX <1-4 
> .; CMRX < 1 -4-4 > 

1 1 Gl S = 1 240 : D-54272 
I 20 C= 1 2288 

1 30 FOR J-0TO3 1 1 = RR I MXOMR* < 1477 ; ■ 0 = -J : IFJ> 
-:5THENG=.J-256 : F'R I MXCMRX < 1 -4 > : 

I 40 RR I MXG ROKE 1 Gl 34 , O : ROKE 1 034+ D .. 0 
I TIO FORK=0TO7 

I E-0 R = REEK < C + 8m J + K > : PRIHTR ; 

1 7-Gi FORL = 0TO7 

1 ©0 Q = x MT < RX2 X< 7* —1_ > > : R = R-Q*2t<7-L7 
1 90 ROKES + L + 40#K, 1 ©0 
.■00 ROKES + D + L + 40!tiK, RBS<Q = 0 7 
.'IO NEXTL K 

.>20 RRIMX:RRIMX”RREMI SISRR2 I OS PER COMX I 
I M IRRE " 

730 OEX I » : I F I «OCHRt C 32 7 THEN230 
240 MEXXJ 
100 RRIHXCHP«C1427 

<10 REM USRRE •'RUM 100^ PER R I RRRX . IJNR 
VOI_X © CHE IL SEX — CRRRXXERI E" DEEIMIXO 





. Hex tables 


Nel tentativo di aiutarvi, come farvi imparare alcune 
tavole di moltiplicazione? Non le normali tavole decimali, 
naturalmente, ma quelle esadecimali. 

Selezionate quale tavola desiderate vedere (0-F), e 
quindi usate "piu' grande di" e "piu' piccolo di" (i tasti 
< e > SHIFTati e non) per far comparire le tavole 
adiacenti. 


5 REM *****RRO _ «30 —HEX TRBLES **** 

IO ROKES32SO .. O : F"OKES32Sl O : REIMIOHE*< 1 <4 3 
> CHRi C S > 

20 H4=”0123456739HBCDEF" 

30 Vt="0123456789 <*»>-?• 

40 RR X MT"QUALE TRVOLfl HEX C O — E^ 

SO GETI * 

«SO IF< I *< " O " OR I *> " S> “ > RMD < I *< ■■ R OR X ■ E ■ • 

THEN5O 

T'O FORJ-0TO13 : IFIX = MIB*<'H*., . J -t- 1 .. 1 >THENO= T 
30 MEXX 

S*U PRINTCHR*,' 147?, POKE532812 

1 OO FOKES32SO 3 = POKE5328 1 .. 3 RR X NTCHP* f 14 
7- > CHE* < 1 -4 <4 > 

1 IO 3=1240 : B =54272 
120 0=12233 

130 EOR-T = 0IOS 1 1 PRINTCHP*' 147^ : O = T : I R. j > 
255THEHG=.T-256 ERI MICHE* -r. 1 4 > 

1 40 RR I MIO : ROKE 1 034 .. O : ROKE 1 034-*-X . O 
1 SO RORK=0TO7 

1 fc-0 P = PEEK<C + 8*J + K> : F'R I MIE 
1 70 PORI_= 0X0 3 

ISO Q=IMX <R.^2 tC7 — 1_ > > : p = p — G!«?2 I< 3 — L> 

190 POKES+L+40#K,130 

200 R0RE3-*-X-*-l_-*-40*R . RES<O = 0 'j 

210 MEXXL .K 

220 RR I MX : RR I MX " RREM I GRAZIO" RER COMI I 
MURRE” 

230 OEII* : IRI*<>CHR<< 32 > XHEM230 
240 MEXI.J 

300 RE I HXCHRt < 1 42 > 

310 REM USRRE "RUM 1OO" RER RIRRRX. UMR 
X 01— X R OHE IL 3EX —ORRRXXERI E" DEEIM XIO 


. ...Mempeek 


Non c'e' mig1ior modo 
se non quello di usare 
sua memoria. In molte 


di conoscere il vostro Commodore 64 
il comando F’EEK per perlustrare la 
circostanza, comunque, quando si 
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agisce all'interno dell'area di programmazione Basic o 
nella memoria di schermo i numeri visualizzati sarebbero 
maggiormente utili se mostranti il carattere ASCII che 
rappresentano. 

Questo programma vi permette di selezionare ogni 
indirizzo di partenza, per usare PEEK fino a 23 bytes 
consecutivi alla volta, mostrando sia il valore PEEK 
normale che il corrispondente carattere ASCII. 

Non appena un blocco di 23 indirizzi viene visualizzato, 
avete la possibilità' di usare PEEK per gli stessi 23 
indirizzi (premendo R), continuare per il successivo 
blocco di 23 (premendo C), selezionare un nuovo indirizzo 
di partenza per la lettura (premendo N) o terminare il 
programma (premendo X). 


.Note del programma 

La maggior parte del programma lavora per tradurre i 
valori’pEEK nei caratteri ASCII. Questo costituisce un 
problema, perche' non tutti i caratteri ASCII possono 
essere rappresentati sullo schermo. Alcuni di essi 
rappresentano caratteri di controllo, che cancellerebbero 

10 schermo, cambierebbero il colore di stampa o commutando 

11 computer nel modo-testo. 


Le istruzioni DATA alle linee lQQy-1200 contengono tutti 
ì codici ASCII che intralcerebbero la visione dello 
schermo, e alle linee 2Q0Q-222Q ci sono le spiegazioni 
testuali di questi codici, che vengono visualizzate al 
loro posto (linea 81(0. 


MEMPEEK 


POKE33281-12 PRINTCHR*<1 


—, REM*** PRG. # 31 

I0 GOSUE900 
20 POKE53280•11 

47)JCHR*(144) _ _ 

100 IME-IJT" INDIRIZZO DI PRRTENZfl' .: S 

I x 0 RF: I HTCHR* < 1 ■4-T’ > CHR* < 20 > :• " I MD I R I 220 ' 
"F-EEK" .- "ST0MF-0 COME"CHR*< 


120 FORJ=STOS+22 
130 F- = REEK < J > 

1 *4.0 C* = OMR*<R> : G0SUE900 





130 PRIHTJ,P,C# 

160 MEXT 

1 TO ER I NTCHR* C 3 > " C—COMT : R = R3PETE: M = MUO 
VO IMD. : X = E S O I "CHR*': 1 -4 -4 > ; 

1SO SETI» 

ISO I E I *=» “ C " TMEM3 = S-»-23 : OOTO 1 1 O 

200 IEI*="E"TMEM11O 

210 IEI*="H"THEN20 

220 IEI* ="X"TMEMEMD 

230 GOTO1SO 

SOO I E E» < E > = " " THENRETURH 

SIO C* = E*<E> : IEE=l<4TMEMC» = C*-»-CMR:*<r 1421 : R 

EM RESTO IM MODO ORSEICO 

S20 EORK=lTOie 

S30 IET (!K>=PTHENK=’20 

840 MEXT : IEK= 1 7THENRETURN 

SSO CO*=CMR*<R> : 1ER=1S2TMEMCC» = CMR*:< 1S1 > 

: REM MED. ORSV TO DSRK ORRV 
SSO C^ = OC*:-»-C:*-«-OME#e < 1 -4-4 > 

870 RETURM 

SOO DIMT<30),P*<233) 

3 1 O RESTORE : EOR T = 1 TOSO = RERDT <r J > ■ MEXT 
320 EOR J = 1 TOSO REflDPT C T < ..T > > : MEXT 
330 RETURM 

1 OSO DRTOS .. 2S , 30.31,1 23 .• 1 *4 -4 1 49 .. 1 SO , 131j 

13 2, 1S3, 1S-4, 1SS.. 1S«S. 1 SS , 1 S3 
1 1 OO DOTO 1 T’ , 23 , 1 45 , 1 37 

1 2O0 DOTO 1 *4 , 1 42 ,3,3 , 1 S .. 1 46 , 13, 1 47 , 13. 14-1 

2000 DOTOE I OMCO , ROSSO VERDE ■ BLU .. OROMC . , M 

ERO.. MORR . .ROSSO C , GRIGIO 3 , GRIGIO M 
2010 DOTOVERDE C,BLU O,ORIOIO C ,VIOLO,O I 

ALLO,022URR0 

2 100 DOTOCURSORE O I U ' , CURSORE DESTRO. CUR 

SORE SU’' .. CURSORE SIMXSTRO 

2200 DOTOMODO TESTO - MODO OROE I CO .. D I SOB I l_ 
ITO MODO.RIODILITO MODO 

2210 DOTOREVERSE OM,REVERSE OEE,HOME.PUL 

T SOE SCMERMO 

2220 DOTORETURM. SMIET +RETURM 


Demo Sort- 


Questa e' urraffascinante ed ipnotica dimostrazione della 
routine "Sort" in azione. 

Sarei capace di ammirare questo programma per ore intere 
(e lo faccio!). 

S REM### ERO. #32 — SORT DEMO 4* ♦:#> 

1 O POKES3280,13 EOKES3231 , 1 3 : ERIMTGMR*< 3 
O : CHRT < 1 47 > 

20 E0R.T=1T06 DT = E T -i-C MF-T ■' 32 ;■ : MEXT 

30 M = 20 DIMS <M > : EOR T =1TOM : S < J > = IMT <RMD < 1 
■+= 1 OOO > ^ ER I MTTOB < 3 > S < -J > MEXT 
3-0 OOSU3 1OO0 
SO EMD 

1 OOO EOR J= 1 TOM : GOSIJB4000 : S = 0 - FORK= 1 TOM — 7 
1OOS GOSUB200O 



10 10 T = S < K > : I FT>S •' K1 > THENS < K > =S < K-*- 1 > - S < 

I +1>=T ; S=1 : GQSUB3OO0 

1 020 HEXTK : IFS*0THENJf=H : GOSUB6000 
IQ2S GOSUB50O0 
I030 HEXTJ : RETURN 

•000 PR 1 HTCHR * < 1 3 > : FORL= 1 TDK : RR 1 HTCHR* < 3 
• NEKT 

•010 RR I HTCHR* < 143? CH R * < 136) CHR*<246) : 

I -R I HTCHR* < 246 > OHR* C 30 -■ 

•O20 OOSUB9000 : RETURN 
1000 RR I HTCHR* < 1 45 > ) 

!0 10 FORI_-3T09 

1020 RR 1 HTTRB < L. ? OMR* < 32 > S < K > CMR* < 1 -4-T: ) 
:030 GOSUE9000 : ne;<;t 

1040 RR I HTCHR* C 145) THB’'3)E* 

1050 RR 1 HTTRB < 3 > S < K-*- 1 > B* ) CHR* < 1 > .= CHR 

r •: ì 45 > 

10S0 FORI_= 9TQ3STEP — 1 

: O 2 0 RR I HTTRB < L_ > 3 < K > .: OMR * < 1 557* > ) E* .: CHR* < 

l 45 > 

<0S0 GOSIJB9090 : HEXT 
1030 RETURN 

■1000 RR I HTCHR* < 1 3 > CHR* < 1 *4-4 > > " ROSSO ** " J ^ 

■ MR*<30> 

10 10 RETURH 

“'■000 : RR I HTCHR* 1 3 > ; FORL= 1 TO20 : RR I HTCHR* 

• 32 > : HEXT 
-.100 RETURH 

, .000 RR I HTCHR* C13); TRE < 1 0 > CHR* < 1 *4 *4 > "FIN 
1 COME I SORT COMRLETO” 

■ .0 1 0 FORI_— 1 TO 1 3 : RR I HTCHR* < 32 > : HEXT 

«O00 FORM= 1 TOT. ; HEXT ■ RETURH 


Sid e Vie 

. .Sid 

..Generatore di Caratteri 

..Sprite/screen 

Sid 
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Il valore di un programmatore del chip SID del Commodore 
64 non e' naturalmente calcolabile se tutto avviene nel 
silenzio piu' completo. La maggior parte degli effetti 
sonori contenuti nei programmi di questo libro consistono 
in semplici suoni, cosi' ho deciso di lasciarvi la 
possibilità’ di valutare le mie capacita’ musicali. 


Il SID non può’ essere persuaso a produrre interessanti 
effetti sonori in un modo piu' semplice del seguente 
programma. 

Viene visualizzata una lista dei principali parametri 
sonori e grazie all'uso dei due tasti-cursore potete 
posizionarvi sul parametro per inserire il valore 
desiderato (premete RETURN prima, cosi' come dopo aver 
digitato ogni numero, per "congelare" il cursore). Alla 
fine, quando avrete definito il suono da voi desiderato, 
premete S per ascoltarlo. 

Una volta che S e' stato premuto, e possibile alterare i 
parametri sonori mentre la musica sta suonando. Col cambio 
della VOCE, voi potete definire fino a tre suoni 
differenti, e sentirli uno alla volta o tutt'e tre 
contempor aneamente. 


Per interrompere il suono di ogni voc 
interromperà il suono della voce 
schermo). 


e, premete F (questo 
visua1 izza ta suilo 


E' da notare che se non specificai 
molto lungo, il suono finirà' prima 
a premere F. Comunque la voce 
ascoltare le vostre nuove composizi> 


! un valore di SUSTAIN 
che facciate in tempo 
imane attiva, e per 
ni vi basterà' premere 


- prima 


:ora di S 


Ho pre-programma.to 
Pr ogramma dimost r al 
Consultate questo p 
u11eriori info r maz 


la prima voce con i DATA present¬ 
ivo del Manuale d uso, nei capito 
aragrafo (e l'appendice P) per 
ioni sulla formazione degli 


i nel 
lo 7. 

8. Vere 
altri 


parametri, cercando magari 


a ; 


C. 3 i 1 


per vedere vo meglio sentirei 


abbinarli a dei 
‘h- i cosa succede. 


O r i 






REM*?*!* F'RG. #33-SID •* *m 

in SID=54272 
i 3 DIMS < 3,5 > : GOSUBS00 
ni F'RIHTCHR#< 147-3 CHRT<33 
» O PR I MT '• W'.^OCE ** < 1 —3 3 " V 

.«3 FR I MT ” VOLUME " • ■ 3 < V • 0 3 

. .«3 PR I MT " MHTTflCK/DECRV " .■ 3 < V .. 13 

• i PP I MT " H3U3TH I H/RELERSE ” . 3 ■' V . 2 3 

IO PP X MT ” "TIOTE < RL TP PREC! > " .. 3 •' V . 3 3 

•• 3 PR- I MT M IOTE < ERS3R FREQ 3 " 3 < V ■ 4 3 

I i 10 F P I MT " M-IRVEFORM .. .. S < V .. 5 3 

I IO PPIMT" «MUSO 'CPSR UP/DOWN- PER 3CEOL 

I EPE “ 

I 2 0 PP I MT " :*OPO I '■PETMPM" PEF: I MMETTER'E IL 

VALORE” 

I30 PRIMT"MJSR "3" PER SEMTIRE OOMI VOCE 

140 PPIMT” HE -E" PER PIMIRE. “ 

■OO C = 1 
:0O CETI» 

«IO I P I T = • • 3 1 ■ THEMGOSUB 1 OOO 
•20 IPIT="P"THEMOOSUB2000 
•30 IPIT=CMRT<I33TMEMSO0 

«4 0 MC = C — < I T=OMPT '17^ + U T = CMPT F 1 43 3 3 : IP 
I IC C 1 OPMC>7THEMMC»C 

i-=;0 PP I MT " aTO" POR T= 1 TOC PP I MT " W : MEXT 

160 PP I MT " rn" TRE <13 3; CMRT < 32 3 CMRT < 32 3 

170 C = MC 

i©0 PRIMT"SW" POP -T= 1 TOMC : PR: I MT " «P" : MEXT 

f=*0 PP I MT " m M TFlB < 18 5 CMPT < 32 > 

IO0 OOTO300 
-.00 I MPUT I T 
■MO I = I MT < VFiL < I T 3 3 

-420 I PC= 1 FIMO < I < 1 OR I >3 3 THEH700 

—. 30 I PC=*2fìMD < I <0OP I > 1 55 3 TMEM300 

.40 I F02RMB I 3 233TMEMT00 
-00 IPC= 1 TMEMV= I OO T O 30 
-IO 3 < V . C — 2 3 = I ; GOTO300 
.'«30 PR I MT .T* TRE < 1 3 > : OOTO30O 

ino V = 1 

• IO 3<V-03 = ir3 

I «20 3 < V _. 13 = 130 

II 10 S<v, 2)=248 
• 1 O S < V .. 3 3 = 1 3 

■ i—i 0 S<V,4)=37 
• ii60 3<V.. 553 = 17- 
. i 7-0 RETUPM 

I OOO POKES I Ei-*-24 .. 3 < V . 0 3 
1010 P=Sin + 7*'rV-l 3 
1020 POKEP + 5 ■ 3 < V .. 1 3 
1030 F OPEP- 0 S . 3 < V .. 2 3 
I «340 POKER-*- l,3<V-33 
i 0”5O POKER j S < V .• 4 3 
I OSO POKEP4.3CV ■ 5f. 3 
I «31-0 RETURM 
0«30 P = S I B + 7* < V— 1 3 
01O POKEP-^4.0 
«320 POKEP+^ .. 0 
«3 30 POKE P + 6.0 
-<340 RETURM 





Generatore di caratteri 


Questo programma vi permette di creare dei vostri 
personali caratteri da usare al posto dei caratteri del 
Commodore 64. 

Selezionate quale carattere desiderate sostituire e 
ridefinire, POKEando il valore da 0 a 255. Per un uso 
serio, e' preferibile selezionare uno dei caratteri 
grafici poco usati (quelli inversi, ad es., dal codice 192 
al 255), ma ridefinire l'alfabeto (da 1 a 26) può' essere 
anche divertente, rendendo ad esempio impossibile la 
lettura di un testo (ridefinire un carattere significa 
cambiare nella nuova forma ogni carattere presente sullo 
schermo). 

Premete 6 se volete un punto del colore dello sfondo, e 
un 1 per vederlo col colore di stampa (che formerà' una 
parte del carattere). A mano a mano che voi proseguite 
verranno visualizzati sia la griglia 8x8 del nuovo 
carattere in formazione, sia il modo in cui il vecchio 
carattere sta cambiando per assumere la sua nuova veste. 

Una caratteristica aggiuntiva del programma e' quella 
che, una volta che risulterete soddisfatti del vostro 
nuovo carattere, una linea di DATA verrà' creata e 
inserita nel programma (a partire dalla linea 10000), 
contenente il codice del carattere e gli otto numeri da 
POKEare per ottenere questo carattere al momento 
desiderato. Facendo una nota di queste istruzioni DAI A, 
sarete in grado di utilizzare questo programmino 
includendolo in altri programmi piu' elaborati. 


Note del programma 


Questo programma, ovviamente, e' molto simile al CHR SET, 
comprese le linee 5-70 che sono praticamente identiche. 
L'unica differenza sta nella linea 40, dove solo i primi 
256 caratteri vengono copiati dalla ROM alla RAM. Ciò' 





serve solo a risparmiare tempo, e significa che sono 
disponibili solo i caratteri del modo grafico (se premete 
1 tasti+ il tasto Commodore o SHIFT non sarete in grado di 
ridefinire i caratteri, ne ! di commutare i vari set di 
caratteri). 

La linea 20 disabilita la tastiera mentre la "copiatura" 
sta avvenendo, e la linea 60 la ri-abilita. La linea 70 
definisce quale set di caratteri (ROM o RAM) viene usato. 

Trasferire il set di caratteri dalla ROM alla RAM 
significa che e' possibile non leggerlo soltanto, ma anche 
alterarlo tramite POKE con dei nuovi valori, ed e' 
esattamente quello che succede in questo programma. Non 
appena fate entrare il valore di ogni bit , la linea 275 
crea la figura del vostro carattere sullo schermo, e la 
linea 280 conserva il valore totale del byte. Una volta 
che avrete fatto entrare gli otto bytes, il valore totale 
viene POKEato nell'appropriata posizione nel set dei 
caratteri alla linea 290. Questo processo e' ripetuto per 
gli altri sette bytes, fino a che l'intero carattere viene 
rìdefinito. 

Nel frattempo, 1'array N memorizza gli otto bytes usati 
per definire il carattere in modo tale che, non appena 
decidete che e' accettabile, la linea di DATA venga 
creata, usando una routine non diversa da quella di 
Auto-line. 


■ REM PRO . #34 — GEHERfiT . CHRHTTERI*#* 

F OKE5328 1- <S RE X HTCHR# < 1 ■‘*7’ > .: CHR* C5) : PE 

i FAVORE ATTENDERE.” 

I POKE32.48 : ROKE!5<S^ 48 
li ROKESG33-* > PEEK < 36334 J AND254 
■li POKE 1 , PEEK < 1 1RND23 1 

. * i FOR J='0TO2047 : ROKE 1 22SS-1-.J , R E E K <. 3324S +J 
NEXT 

■ O ROKE 1 , REEK< 1 > OR'» 

' <1 POKE36334 .. REEK < SE334 > OR 1 

Il POKE33272, < PEEK <53272 ) RND240 > + 12 
•O 0 = 1 0000 

I HO PRINTCHR^ < 1 47 > "CRRRTTERE D0 RIDEFINI 
» i <0 — 2 S 3 > 1 ’ 

iiO INPUTC 

i *0 PR I NT "RI DEF I N I RE CRRPTTPRP " C 
, *ei d = 54272 • POKEI 1211,C:POKE1211+D, 1 
110 PRINT"IJSR M r» O INPUT BINRRIO" 
i —.O PR I NT " 0 = BRCKGROUHD ** 



160 PRINT"1=FOREGROUND" 

200 RR I HTCHR» <17>; CHR* < 17) J CHR* F 1 T" > 

210 FORJ=0TO7 

220 RR I NT ROM ” J TRE F 1 5 > 

230 MF JT>-=0 ; F0RK-CTO7 

2-^0 RR I MTCHR* F 1 SS > ^ GHR* F 1 66 > I~ M R * F 55 > 

250 GETTI*: I E I *< " 0 " OR I *> " 1 " THEH250 

260 RR I MTCHR* < 1 57 > I * 

270 X=13 : IEI*=" 1 ”TMEMX=2 

273 ROKE 1 434+POS F 1 T>+4 0# J .. 160 ! P0KE55706+ P 

os f i > +4 0 + .T , x 

2S0 M F _T > = M •' T ■>-*-<. VRL F I * > > *«2 TF 7* — K > = MEXTK : RR 
I MT 

230 ROKE1228S+S#C+J^NCJ) 

300 MEXT-T 

310 RRIMT"0K3” 

320 OETI* 

330 IPI* =”M"THEM100 
340 IRI*<>”V”TMEM320 

"500 RRINTCHR*< 1 47 > : ERI MT : RPINTR'TRTfl" Ci 
5 10 FORJ = 0TO7 : D*“STR* < N < J) ) : D*=RIOHT*' D* 
7 LEM F E*T> — 1 > 

520 RR I MT E* 

530 MEXT : RR I MT : RR I MT " Ft= " fl+ 10" GOTOS00 " 

540 ROKE 1 33 -• 2 : R'OKE<S3 1 - 1 3 POKE632 ,13 

550 RR I MTOMR* < 1 3 > .: : EME 

G00 RR I MTOHR* F 1 47 > " RMV MORE? " 

«S 1 0 OET I * 

620 X R I *= •• V " TMEM 1 00 
R. 3 0 IFI#O"N"THEM610 
640 LIST10000— 


Sprite-schermo 


Questo programma e' sostanzialmente 
Colore visto nel Capitolo 1, ma quest 
muovere lungo lo schermo non e' un 
sp rite. Lo se he rmo mos t ra ino11 r e le 
della posizione dello sprite, e il "f 
significativo della coordinata x) t 
modo del normale carattere— video. 


simile a Cursore e 
a volta l’oggetto da 
caraattere ma uno 
coordinate x e y 
lag” xl (il bit piu' 
radotto allo stessu 


Lo aprite e’ inizialmente posi 
schermo, ne11'ango1o in alto 
seguenti coordinate : 


zionato interamente sullo 
a sinistra, mostrando le 


SPR ITE 

X Y XI 

2 a 5@ 0 


SCHERMO 
X Y 

0 0 
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Esso può’ essere mosso in altre posizioni, fino alla 
parziale o totale uscita dallo schermo, tramite l'uso dei 
tasti di controlIo-cursore. Se muovete lo sprite verso la 
destra, la coordinata X aumenterà' fino ad un massimo di 
255, dopo che il flag XI sara’ cambiato in 1. Le 
coordinate dello schermo vi riferiscono in ogni momento 
l'equivalente posizione tramite i valori visualizzati in 
ulto sullo schermo. 

Poiché' la risoluzione dello "Sprite 
piu' grande del carattere-schermo, 
saranno incrementate da uno step 
incremento di coordinata sprite di 1. 

Solo quando le coordinate x e y dello schermo saranno 
formate da valori interi in alto a sinistra dello schermo, 
corrisponderanno esattamente ad una posizione normale del 
tarattere. 

Il valore elativo delle coordinate e' utile specialmente 
quando si tratta di alterare la posizione per evitare 
(ollisioni con caratteri presenti sullo schermo (per un 
'•tempio, guardate piu' avanti il programma "Skyline”). 

REM»*» RRO_**3S — SPRITE SCEEEM *»* 
i 11 FORJ=0TO62 : POKES32+ _T . 235 : MEXT : REM DEF 
i I IF E RE I TE 

i i FOKE2040 .. 832."'64 : REM LOCPTE ERE ITE DRT 
I 1 

m X = 2 T : V = 50 : X1=0 : ROKE53287 • 1 3 ROKE53275 

I ROKE532S9,1 ! REM COLOUR PHD SET SREITE 
i • i RR I HTCHRt >r 147) .: CHE* ■' -5 :■ TRE < 1 > ■’ SRR I TE ” .. 
i i i I : • 1 3 > ”SCHERMO” 

• i RE I NTTRE < 1 > ” X " TRE ■' E > " V-TRE •' 1 3 > " X 1 "TRE 

I > ” X " TRE ■' 27 T. •• V " TRE < 35 > " REEK ” 

i-, FOR J= 1 T039 : B4' = E<’ + CHFT ■' 32 > : NEXT ! OOSUE3 
i n 1 

•’ POKE53248,X 

•••i ROKE53249. V 

•> . ROKE53264 , XI 

11,11 GET I T I R I E = " THEH 1 OR 

I I H I R I T == O H R T >: 1 T > R M DV<255THENV=V+ 1 
i ii I F I »=CHR# <145) RHDV>0THEH V«=V - 1 
■ il IFI*: = CHR*<157) THENGOSUE200 
I •li’, I F I * = CHR# ■' 29 ) THE! IGOSIJB250 
i •> i GOSUE500 : GOTO70 
•ni I EXI>OTHENX = X — 1 1 RETURN 
in IFX=0RMEX1 = 1THEMX=25S - X1=0 
li RETURN 

• n IFX<255THENX=X+1 RETIJRH 

• ii IFX=255RHDX1=0THENX=0 X1 = 1 


-schermo" e' 64 volte 
le coordinate-video 
di 6.125 per ogni 


gg 




uundN 


T"© RETURN 
Gì© PRINTCHR*<19> 
HR* < 1 «4-5 > X .■ TRB < 5 '• 
1© X2=X+256*X1 


CHR» < 1 7> = RR I NTB* : RR I M I 

V ; TRE < 1 2 > .= XI i TRE < 1 8 > ; 


20 SX= < X2 — 2-4 > X© 

S3© SV=<V — 5©> X© _ 

54 0 IFSX<0OPSX>=40ORSV<0ORSV>=23THENL»0 

GOTO600 

SS© L_= 1 024+ I MT < SX > -+*4 © >* I HT<;SV> 

G©0 RR I MTSX TRE < 2© > SV TRE < 3-4 > ■ L- 

©1© RETURN 


Interludio 


Censura 

Inchiostro invisibile 

LIST invisibile 


Hesag ramini 

Crittogrammi 

Invertire 


r 


ensur 3. 


Grazie a 
censurare 


questo piccolo programma vi potrete divertire 
i testi prodotti dal vostro Commodore S4. 


a 


II testo prodotto e ! composto da lettere casuali, il 
programma non e' in grado (per il momento) di scrivere 
oscenità', ma credo che presto i piu' perversi tra di voi 
avranno apportato le necessarie modifiche aftinche' ciò 
avvenga. 


yb 









Decidete quale lettera eliminare e premete 
iorrispondente. Quando sarete soddisfatti al 
poter far leggere perfino a vostra nonna quello 
.ullo schermo, premete il tasto 6, e guardate 


il tasto 
punto da 
che appare 
il testo 


finale, ripulito dal computer di tutte le tracce della 
vostra censura. (Questo momento finale del programma e’ 
ertamente da guardare attentamente). 


REM*** RRO - *3<S — OEMSURRl 
i 0 ROKE532S0.. 1 : POKE532S 1 .. 1 : RRIMXCHRX< 1 • 4 - 7 ’ 

. . OHRX < 1 4** > 

11 ROR J=1X023 : BX = BX -t-C HRX < 32 > : ME XX 
■il FOPJ = 0TO839 
in P=INT<RHD<1>*26>+6S 

• O IERMBC1>>-?flHDLP<>32THEHP=32 
*.0 PRINTCHRXP', 

•O I_R = R 

10 MEXX RRIMX 

• O PR I HXCHR» < 28 > XRB < 6 V QUHLE LEXTERR Vl_JO 
I CENSURRRE?" 

1 HO OEX I X 

I I CI IFI*C"0"ORX*>"2"XHEN100 

1 O IFI*="0"THEN220 

I <G» ROKE33230> I MX < RND < 1 > 1 -4 > -«-2 

t » ei PR I HXCHR* C 1 4S > J : PRINXXRB<6> J EX 

i -.0 FOR J = 0XO839 

I . .ei I FPEEK C 1 024+ J > OR3C <. I X > — F4THEM 1 30 

i ."0 POKE J+ 1 02** ,i 1 60 : POKE J+55296 , 

i , 10 NEMX 

i ,0 POKE33280, 1 

OO RR I MXOMRX < 1 **S > 

I0 00X030 

. -0 RR I MXOHRX < 1 43 ? ; 

10 RR I MXOMRX C 30 > XRB C. f=- > L_ER XX <. EX • <*- > " MESSO 
, .RIO ORO RPPROVRXO"LEFX* < B*, 4) 

10 I_R — 0 : POKE53280.3 

-.0 K= 1 024 : EOR J--=KXOK-i-S33 
r . 0 R = REEK<J> 

_• ,-0 ROKE J -• 32 ROKE J + S4272 .. 0 

,0 IRR=160XHEHP=LP : 00X0300 
, .0 X R < LP0320RP032 > THEMPOKEK • R K = K 1 

.00 LR = R HEXT 
10 PRINTCHR*<145>, 

.0 RR I HXXRE < 6 > LEFXt E# , 5 > " HOH E MEGLIO 
• I EEXX <EX , -5 > 

. i0 P0KE532801 
• IO OEX I X : I E I X= ” •’ THEN340 


Inchiostro 


mvisibi le 


In questo programma, la tastiera del Commod 
me una qualsiasi macchina da scrivere, ma 


64 


lavora 
!51 r uno 



entra nella stanza mentre state scrivendo, basta premere 
FI ed il testo diventerà' immediatamente invisibile. 

Una volta che qli intrusi saranno usciti, premendo F7 il 
testo ricompari re.' 

(Non per niente il sotto-titolo di questo capitolo si 
chiama "la sezione strampalata") 


5 REM***PRG.#37-IHCHIOSTRO IMVISIBILE*** 
1 0 ROEETSSSRO. 1*» : ROKE!532Ql > 1 

20 RR I HTCHP* < 1 T' > CHR* < 3 1 > CMR* < 1 ; 

30 RR I MT *CR I V I RURE USA " R 1 " RER MRS 

COMDERE“ REM HERRT IS CRPITHL "S- 

^O PRINTTRB<19) ,,/ F7' RER SVELRRE •• 

SO O E T I T I R I *-=•••■ XMEMSO 

■SO I R I * = CMR* < 1 33 > TMEMROKES32Q 1 , tS 

T=*0 I R I ♦ = C;MR* < 1 3<S > TMEMROKES328 1 .. 1 

SO RR I MT I 

SO O O T OSO 


mv: 


libile 


Sebbene sembri stupido 
questo accorqimento può 
applicazioni. Con 1'uso 
controllo in una linea di 
che venga listata. 


come il precedente programma, 
avere utili ed interessanti 
appropriato dei caratteri di 
proqramma, e' possibile impedire 


Se battete la linea 16 seguendo le 


d i i cr z?cf i 


linee del proqramma 


con due linee a prima vista simili; ma 


:*t 


id prima iinsa non conìparira 


i s t ruzioni s c r 1 11e 
troverete alla fine 
se chiederete il 


Come si può usare? Naturalmente un 
costituito da istruzioni REM e' 
stessa tecnica per nascondere delle 


programma interamente 
nutilizzabile. ma la 
linee di programma o 


un5. p 8.r 1-8 di osso puo 

.-4.—.. - j .“4 —, 4- n 

c* •_* i _"i • d •-■cr U so. * e z>*_* i »_• 

un8. P8.r o I s d or o i no 


essere usata m un proqramma cne 
voi. Infatti e* possibile nascondere 
(password) che tramite un INPUT 


centro1 


i n j »*|. j_-. p j p 




i j j j-.p i - 


r y —. 


p o r prosonuirò. 


no 
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c-3cvh r 3. nifi i Ì 


p r og r anima to r i 


sotìali calo 


Non ho idea del perche 1 cosi' tanti 
computer siano ossessionati nell usare il loro 
equipaggiamento elettronico per produrre degli esagrammi 
cinesi. Forse ha qualcosa a che fare col fatto^ cht cosi 
tanti computer vengono costruiti in ualifernia? 


- . REM*** ERG - 30 

IO REM OLII SOUO 30 


O REM 
ni REM 
IO REM 
-.O REM 
0.0 REM 
.1 REM 
I ORE IL 


qu i sono 
SEGU ITI 



SEGOITI 


FIMOLE 1 


30 

DO 

DO 

DO 

DO 

DO 



UNO 


JROZIO RER COMCEL 


Crittogrammi 


Questo programma utilizza la funzione RNQ del Comm^do^e 
-, e r creare dei codici indecifrabili. li concetto -- 1 - 1 u=y 
iella funzione RND con un argomento negativo e' stato già/ 


per 
della 

discusso nel primo capitolo (il "uic 


• * T 3l S t-9. to SU9^6F1 vO C 0HÌ6 


ottenere dei 

difficilmente prevedibili grazie all uso 
omunque, conoscendo un argomento negativo; 


di ogni sequenza di numeri casuali può' essere 


può ' 

esattamente sia dopo gualche tempo, 
persona che sappia usare il computer. 


sia 


dadi"), dove vi 
numeri casuali 

pMfif _TT J 
rV^LA li/. 

risultato 
riprodotta 
gua 1S 1 e.S i 


di 

il 


da 


Teoricamente, occorrerebbe un codice ideale eoe 
sostituisse nel testo originale le lettere con delle 
lettere casuali, ed e' precisamente quello che fa questo 
programma. Ma poiché' usiamo un argomento negativo che 
iolo noi conosciamo, il messaggio in codice può' essere 
facilmente convertito al testo originale semplicemente 
ipplicando ai contrario lo stesso valore RANDOM. 







Nota Bone ; quando il programma richiede un valore (linea 

ir - •' j digitate un numero POSITIVO, che sera' reso negativo 
alla linea 30. 

s PEM*** PRG. #39-CRITTOGPRMm 
10 POKE53280,5 : POKE5328 1.13 

20 PRIHTCHP*<147> 

30 F0RJ=1T014 : R# = flt + CHR#<32^ : ME'^T 

*10 E0R.J=1X05 PRINT : HEXT 

IoS^R^ÌeSt 1 PRINTTHB< 13'..; OMR*:< 1 SS > .: CHfl 

PR I UT : PR I MTTRE < 4 > ; CHR* f 1 44 'j "PREM T •=-!=■« 
210 PER L_ ESRGRRMMR ■■ F:tz.n I _.RA 

~0 GOSUE500 
SO X = RMDv- TI 
SO REM 55543 
1 OO ROR.J = OXOS 
11O X=RHDC1> 

120 IFX>.5THEN200 

130 R0RK=0X01 ' 

1 40 POKE55555 + K + 804! J . 13 

HEXT 

^.'00 F" O R: K = 1 TOl *^4- 

2 10 POKE55588 + K + 30# J 13 

l?o OoIuSSSo* C 1 ** " ; * 20 * " COMT 1 . ■ 

320 RUM 

i?o rIxurm 1 ^ 1 < 32 > themsoo 


invertire 


Se avete già' digitato i programmi "CHR Set" e 
"Generatore di caratteri" contenuti in questo libro, vi 
dovrebbe risultare abbastanza chiaro come lavora il 
programma "Invertire - Esso e 1 in grado di provocare 
sorprendenti effetti, riuscendo a provocare della 
costernazione in chi lo vede girare sul proprio computer o 
su un modello in un negozio. 

'--■Offre "CHR Set", l'intero set di caratteri viene copiato 
dalla CHRGEN ROM alla RAM, ma con una piccola differenza. 
Ogni caratterre e' memorizzato al contrario. 


Il programma termina con l'istruzione LIST alla, linea 80, 
ma se voi digitate GOTO 2Ò0 potrete vedere un altro 
effetto curioso! infatti i caratteri torneranno nella 
normale posizione, "ribaltandosi" il set dei caratteri 
correnti (i valori bassi dell'indirizzo 53272). 


100 





» REM **>**+< PIVI l . 44 -111 1 I IVI RT 

-5 RR I NTCHR* < 1 -I > "Il I- I HVORE RTTENDERE. . - 
• • 

10 POKE52,4 9 POH ~» . 18 

20 POKE5633<l ■ I I I I ■ —. 134 >RND254 
10 RORE 1 , PEI I- < I ■IHIIi- —. 1 

■*0 GOSUB 1 00 RI II ■ RI (ITE MUOVO SET DI CBRH 

XXER I 

50 ROKEl,REEK<l -OR-» 

60 POKE56334,ll I I- ■ —.f. 33*4 > OR 1 

2-0 POKE53272 , < RI I I- <53272 JHND240; + 1 2 

00 l_ I ST 

100 FORJ-0TO255 
110 RORR = 0XO7' 

120 RORE 1 220S-* J#9+7-R REER < 53248+ JW8+R > 

1 30 NEXTR - -J 
140 RETURN 

200 FORJ-5TO1 2STEP7 < POKE53272, < REER < 5327 
2>flND240>+J RORR—1XO300 : MEX"XR > J : 00X0200 


Giocaci SAH 


Cattura il mio cuore 

Reversi 

Solitario 

Bocce 

Cereaparole 


.Cattura il mio cuore 


Questo gioco e' talmente semplice da sembrare banale, e 
sotto qualche asp : ett*j e simile alla vita stessa. Dovete 
rimanere vivi il piu’ a lunqo possibile, pena la fine del 
gioco, e catturare quanti piu' cuori potete. 


Il vostro segnalino e' un diamante giallo, e può’ essere 
mosso grazie ai due tasti-cursore (il cursore vertic. 
muove a sinistra, il cursore orizz. muove a destra). Voi 
dovete tentare di catturare senza farvi colpire dalle 
frecce che li circondano. Non appena sarete colpiti da una 
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freccia, il gioco sara' finitoe verrà' visualizzato il 
vostro punteggio, insieme ai tempo in cui siete riusciti a 
sopravvivere. 


Note del programma 


II programma sfrutta una caratteristica del Commodore 


che non e’ 


norma1mente c onsiderata vantaggiosa, 


c ioe ' 


64 

la 


brutta abitudine di scrollare l'intero video quando viene 
digitata l'ultima linea dello schermo. In tal modo non 
appena qualcosa viene scritto sull'ultima linea, questa 
non e ' già’ piu' 1 ' u 11 i ma 1 i nea.. 


La. linea. 110 PRINTa le treccie, i cuori, le stringhe 
delle treccie (come definite dai caratteri delle 
istruzioni DATA - alla linea. 1OOO) seguendo una. casuale 
TAB lungo la linea finale causando l'immediato scrolling e 
provocando il movimento dei caratteri. Il carattere 
diamante, comunque, viene fermato grazie alle linee 120 e 
SO. 


L'effetto finale mostra un veloce movimento delle frecce 
e dei cuori verso il bordo alto dello schermo, mentre una 
nuova stringa viene sempre visualizzata sull'ultima linea 
visibile del video. 


5 REM*** PRG.#41-CRTTURfi IL MIO CUORE*** 

1 O POKE33280 . *E- - ROKE532S 1 .. 1 *4 RR I NTCHRt CI'* 

20 P=1564:D=54272 

30 RERD J I F J0999THENR*=R* + CHR* < J > ■ GOT03 
0 

4 0 EOR-T = 1 X024 ; RR I MT : MEXT : X I = " OOOOOO " 

50 POKER .■ 30 : POKEP+D 7" 

60 0=REEK < R-*-40 ? 

IT O I FG*=83THEMS=S+ 1 
00 IFI3 = 30XHEM2OO 

30 OEX I * 

10O G5 = R-*- < < IX = OMRX'r 23 > '■ < RC 1 5S2> > — < C I X = OH 

R X C 17) R> 1 545 > > 

Ilo RE I UXXRE < I MX < PUD < 1 > *34 > 1 > J E * 

ISO ROKER + D — 40 .• 14 
130 F=0 

140 00X050 

200 X*=XI* 

2 10 EE I NXCHE* < 5 > " W">4R I CflXXUERXO " S " CUORE 
; : I FSO 1 XHEMRE I MX ” III " i 
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■l- 'l 


. 20 T = VFIL CM1 D* <T*.3,2>> »*«C»VFiL < R I GHT* < X* 

2 > > 

3@ RRIMT:RRIMT”E SEI SOFRR V VISSUTO RER 
"SECONDO" ; IFTO 1 THENPR I NT " III *’ 

0 RR I MT : R R I MT : RR I NT '* 3C3 f-fc M I LO SPAZIO 

• ER GlOCREE RHCORR" 

-'“0 GET I * I E I ♦Or HP* < 32 > THEN2 j0 
-€■0 RUM 

1 000 EiRTR > 32,28 .. 1 1 ~ . 1 ^ -4 ., 32 _ S*-=» .. 333 


Reversi 


L'antico gioco di Reversi e' stato fedelmente riprodotto 
in questo programma. Nella spiacevole eventualità' che voi 
non abbiate mai giocato a questo simpatico passatempo, le 
istruzioni (di cui vi propongo un sommario piu' sotto) vi 
verranno proposte all'interno del programma (linee 


i ; w.-. i i ; 
livelli 


.-4; 


1000-10360). Il programma ha cinque diversi 
gioco, prevedendo l'opzione di giocare contro il computer, 
in due giocatori ! l'uno contro l'altro), di salvare il 
gioco iniziato su disco (o anche su cassetta, basta una 
piccola modifica) per finirlo in un altro momento. 


L'opzione "ripresa" permette di ripetere 
modo esatto, dandovi il completo controllo 
del programma. 


un gioco nel 
ad ogni punto 


Il computer gioca in un modo abbastanza lento, e anche se 
gioca da esperto, e' lontane 1 calla Perfezione In questo 
modo, a meno che voi non siate dei campioni di Reve"si, 
troverete nel vostro Commodore un degno avvversario. 


Istruzioni 


Il gioco si svolge su una scacchiera 8x8. 

Una "cattura." viene effettuata chiudendo tra 
pezzi uno o piu pezzi dell avversario lungo un 
può' essere orizzontale, verticale o diagonale; 



catturate vengono girate ed assumono il 
ha "mangiate". 


colore 


pedine 
chi le 
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Una singola mossa puo' provocare piu' di una cattura, ftd 
ogni mossa deve corrispondere almeno una cattura, 
altrimenti la mossa non e' valida. 

Nel caso che un giocatore non possa effettuare catture, 
le*, mano passa all avversario. 

J ] i r ^ fimi t .n ."ni i-.m.-l.-. 1 

i i rr lini » 

Un giocatore non ha piu' pezzi sulla scacchiera. 

Nessun giocatore può effettuare mosse valide o 

Tutti i riquadri della scacchiera sono stati occupati. 

In tutti i casi, il vincitore sara' il giocatore che 
possiedera' piu' pezzi alla fine del gioco. 

E' da notare che, poiché' e' impossibile soddisfare 
l'istruzione riguardante mosse non permesse partendo da 
una scacchiera vuota, i primi quattro pezzi vengono 
predisposti sulla griglia prima dell'inizio del gioco. 


© REM*#* PRO.** 42-REVERSI 

5 POKE53280 ■ 13 POKE13281 .. 1 : PRIMTCHRSOBì 

i © pr i mt ^ trb < i e > i " wwiwwDMeiWEWPEVEES i ssriPim 

WiaHHBBMIBV V&H 

15 M—132©:OOSUB1©0 
2© CH=1©24 : D = ?427 , 2 

25 EOEJ=OMXO 1 063 • POKEJ ■ ©3 : POKE J + D .. 2 : ME XX 
3© OOSUB10© 

35 EOE J = 1 SS-4XO2023 : FOKEJ .. ©3 : POKEJ + B , 2 ME 
XX 

-40 OOSUB 100 

45 FORJ= 1 0<S+*XO2023SXEP-‘»0 : FOKEJ— 1 .. 33 : FOKE 
J ■ S3 FOKE J-FD > 2 ■ POKE J + D- 1.-2 MEXX 
5© OOSUB1©0 

55 FOEJ=1XO1©0 : I E JX 1 ©>= I MX < JX 1 0 > XMEMOOSUB 
1 ©0 

S© MEXX : 00X0 15© 

1 00 EORK = 0XOS : POKEM-t-K .- FEEK < N + K > — < 256* 4 FE 
EK C M-*-K XI 2© > > — 1 2© : MEXXK REXURM 
1 10 CPX = CMP6 3 1 >-t-OME* < 2 1 5 >-»-OME* < 3© > 

12© V , PX = C:MPX < 23 > -+-OME* 4 2 © 5* ? -«-OHE:* < 30 y 
130 EEXUEM 

15© fe i mx •• wwr-zuo i le 

X SXEU2IOM X 3" 

155 F)X= " " : OEXFtX : I E©X*= " ” XMEM 1 55 

156 IER^="S"THEN159 
153 IE©*<>"M"XMEM155 
1 SS IE©» ="M”XHEM1S0 

1 53 OOSUB 1 1 © : OOSUB1©000 


Ì 04 


I 




I 60 I FLEFT» < > 1 > -= ” S ” THENOUSU^ A 1 fcr» lj»x? x 

11000 

I <SS CLR : DIMG<60> , PO < 60 ì .. SPGCG0> : Cl = l 1 ^ • 

. 2— Ilei :C3-1707 C-t-1721 D = 34272 

170 GOSUB110 

IO0 PRIHTCHR*<30> _ _ 

Ies PRINT"mo PREDO SCEOLI IL TIPO DI 

< * I oco ■’ __ 

I 30 PRIMT” 

193 PR I NT •* MD*J< G I OCA I CONTRO IL C-=E-4 = l_ I V 
i LLO 1—S> 

.,•0 0 PRIMT" Wl«l PPINCIPIRMTE 


1 S"THENOOSUE1 1O GOSUB1 


210 PRINT"W2 : MEDIO 

.■20 PRIMT”W3 : GIOCO AGGRESSIVO 

.‘30 PRIMT" JO-4 GIOCO TATTICO 

240 PRIMT" JOS ESPERTO 

-■350 PRIMT” MS: DUE GIOCATORI 

.e0 PRIMT" *7 : CARICA GIOCO PRECED. DA DI 

• SCO 

.'~T0 LV*“" " : GETLV* : I P L V* — " " THEM270 

.‘G0 LV“VHLCLV*> : IFLV<1ORLV>7THEN270 
„-S>0 IFLV-7THEM13000 

100 IFLV-6THEN300 __ 

j 1 0 PR I NT " rwnaMMWlVLIO I GIOCARE PER PRIMO 

•? 

320 PRIMT"*MWWl«5« SI" 

330 PRIMT” M4— MO __ 

340 PRIMT" WT = LASCI CHE DECIDA IL COMPUT 
I R 

. 0 ppf = " : G E T P P ♦ : IEEP»“” " THEH330 

160 IPPP* —"T"THEHOOSUB9000 
»7^0 lpppjo."S"ORFP#^"N"THEN500 
380 OOTO330 
-.00 REM CAMPO »**f! 

“5 10 PRINT'TJ OE?EVERSIHi EV V-RM i 

I FLV=*6THEMPR I MT : PRIMT : PRIMT ■ GOT 03530 
•320 PRIMTVP*"= TU W" : PR I MTTAE < 23 > i CP* ““ 
COMPUTER” 

-330 POR J” 1 TOS : PR I MTCMR* < 1 SS > S 

-.45 PRINTCHR*< 1 -4 -4 > . : EORK= 1 TOS : PR I MTCMR* < 

1 ee > i CHR* < 32 > : MEXT : PRIMT"»" 

350 MEXT 

460 PR I MTTAE < 3 > ; CMPT < 1 SE > 

sfi EORT-1TOS PRIMT”«I" ; J = MEXT : PR I MTCMR* 
< 30 > 

->O0 PORJ—1TOS00 MEXT=PRIMT . 

—.30 POPE 1 333 .PI POPE 1 475.8 1 '■ POPE 1 33—« 87 ■ 

'- 5 ^5 E: poPESsees .. 2 ■ POPE 55747 ,2 : popesseet- e ; 

I OKE33743 .. E 
#5 00 OOSUB2000 

E0S I PA = 2THEM300SO __ 

61 0 I ppp*—" S " TMEMB*-= VP* : GOSUB3000 
615 IP2=1THEM20000 
,.20 I PLVC>ETMEMES0 

f t ^ pr |v| 

5730 NM < 2 ) **0 : PP-= 1 : B * *= VP * : GOSUE3000 : IE2=1T 

r H 40 2 Hml>”0 : PP=—EP BC-CP* : PRIMT"»" : GOSUB 
1000 IP2=1TMEM20000 
. .45 OOTOE2S 

. J0 I PPP*= " M " TMEMP— 1 
,.G0 PP*="S" : GOSUBE000 
, . 7-0 I P2= 1 THEM20000 
700 GOTOE10 
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1 000 REM ♦ s* TEST E E R RI MIRE ♦ ♦ 

1010 2=0 

1020 IFHPM=1RHDNCM=1THENZ=1 
1030 I FCO-=0ORCG = 0THEH2= 1 

1 040 I FLV = 6RNDNM < 0 > = 1 RHDHM < 2 > = 1 XHEM2= 1 

1050 IFCG+CO*64THEN2=1 

1060 RETURN 

2000 CG=0 : 00 = 0 

2010 E O R M = C1XOO33XEE80 

2020 EORK = MXOM-*- 1 -43XEE2 

2030 IFPEEK « K 1XHENCO = CG+1 

20*40 I EREEK < K > = 82XHEMCO = CO-t- 1 

2050 NEXXK = MEXXM 

2080 PRINX"«®«[MBi!tW)B" ; XOB(25'> ; VP*" = 

■ ■■■■■I ' .. CO 

2020 PRIHT"«M" ^ XRB<25> ; CP*"= ■■■■■■! 

" i CO 

2000 RR I MX " WW i XRB < 20 > J XOXRL.E — ■■■■ 

■ ■■I" J CO-*-CO 

2000 RR X MX •' M££X*fXBTBTVX£]l£D£DtIffXKTKXEgDCXttXKIKXm)KXm 1 ' 

2100 PEXURN 

3000 REM 

3010 RO=0:MRM=0 

3020 0R I MX " XUR M03SR < " i B=T i ■ I NPUX 5 m 

3030 IFR4-"00"THENGOSUB3900 IEMRM=1XMEM3 
1 30 

30*40 IFR*="*"THEHPRINX" XT' =00X03020 

3050 IFVRLCR4X1 1 OR VRL- < R* > >88XMEMR*c = +t •• : 

00X03030 

3060 X RR X GMX* < R X , 1 > = •• 3 •• ORR I OMX* C R* , 1 > — 0 

" XMEMR*="»♦< " 00X03030 

302 0 L_ = VRL_ <LEFX*^R4, 1 > > : R”VRI_< RIOMX* < R* , 

1 > > 

3080 L_l_ = 1 285— < 80*l_ > -+• < 2*iR > 

3030 I EREEK < l_l_ > O 1 02XMEMR:*—"*« •■ 00X03030 

3100 0=81 0=82 : IEER=—1XMEMO=82=0=81 

3110 GOSUB5000 

3120 X ER:*= = " m " XMEM30-40 

3130 OOSUB2000=IEMEM=1XMEM3150 

31*40 0<CG + C0-4>-LL 

3150 OOSUB1000=REXURM 

3300 0=81 =0=82= IEER = —1XHEMO = 82 : 0 = 81 

-4000 REM 

*4003 EOR-J= 1 XOE0 : EO < -J > = 0 - SRO<-J>=0 : NEXT.J 
*4005 RO=l 

*4010 EORM = C 1 XOC3SXER80 
*4020 EORM = MXOM-«- 1 «4SXER2 
*4030 I EREEK < M > <> 1 02XMEM-4020 

-40*40 I_I_= M 

*4050 GOSUB5O00 

4060 I ERGO 1 XHEMR:*:—" »* " O0X0*4030 
*4020 MEXXM MEXXM 

-4080 MRM= 1 = I EI_V = «SXMEMMM < ER-*-1 > = 1 
*4030 EG = 0 
*4 100 REXURM 
5000 REM 

50 1 0 EOR J = 0XO2 : L_ < J > =0 : MEXXX 
5020 L_ < 0 > =L_l_ : V* = 0 
5030 E0R-J=1X08 

50*40 X = 2 = 1 RMB — 30OR J=2RMD—230RX = 3RMD20RJT = 
4RMD82ORJ = 5RMD80ORJ»6RMD28ORJ = 2flMri-2 
5050 X = XOR.J = 8RMB —82 

5080 E0RK=1X02 

5020 l_ < K > = L_ < K— 1 > -*-X 

5080 X EL < K > <C 1 ORE C K > >C4XHEMI_ < K > = 1 02*4 

5100 MEXXK 
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-.110 I FPEEK < L_ < 1 > > OOTHEN5200 
—.120 F0RK=*2TO7 

- » ora T FPEEK L ^ K 'O ^OTHENf* t 

IFPEEK<L<Kj > — 1 02ORPEEK <L<K5 >-3STHEM 

-"l 40 I FPEEK < L < K > > »=GTHEN5 1 60 

-i*=;0 HEXTK ; GOTOS200 _____ 

-il <S0 I FPG-0THENOOSUBS500 : OOTOj 200 
-, i 70 PG<PD>=LL 

1 S0 SPO < PC. > =K + SPG ■' PO > - 1 

imi IksSìTkssssììss ;=ss£?«2 

, 4 > THENSPO <PG>=SPGCPG' + 25 

5IS5 IFSPG < PO > O0RNDPOO0THENPO-PO+ 1 
—.2 10 1 FV-0THEHR*- " *• ” 

—.2^*0 RETURN _ 

—.■500 V = 1 : PORM=>0TOK : POKEL C M ^ O 

—.■5 1 0 POKEI_ < M > -FU • < 0 — 7*3 > X 1 - —■ 

—. 5 20 HEXT : RETURN 
6000 REM 

P0?i 1 TO60 PO < J > =0 SPO < JT > -0 nextj 

%%%% ì i ÌS-03 °Te < 00-00 > O3TMEMO-G.-30 » OO 

6026 8 IF < CO+CO ) <6THENQ-Gl+80 : 0 0 = 00 — 30 

030 PORM-OXOOOS-TERS0 
6040 F0RN-MTOM+14STEP2 
6050 IFPEEK < N)<>102THEN6100 
,50.50 L-L_ —M 

ISSI !??SI“Suv-ithenpo«»> -PO< . > ’ =OTO« 
00 

6100 MEXTM:MEXTM 

SlàS iPK=à;SiKS3?S>- W IMT<RH»<l>*<R°- 1 

6 J 23 ? IF<Ico + CG > 76)RHDLV>3THENGOSUB7000 

1 ì 11 ???SiK2é?èS?i?S ;=g2S5*KK=è-«*«, < 

5?:S*T!JIP1<k>^ScS;th£wRr-mr*i 

f - j 50 IFSPQ ( kÌ>>SPOC0)THENSPG'0> spo<k> 

6?60 P HEXTK N IFHR-1THEN6200 

tilt PSr^I^^ Ì^?KÌOSPO<0>THEN 6190 

6183 RN“RN—1 ; IFRH—0THEN619S 

e130 NEXTK 

6193 RO<0>-RO<K> 

6200 LL-PO<0> 

ilii CM:<17 g|-LE>% 0 m = INT<CN + .3, M2=IM 
r < .'MI —CM > #40+ . 3 > : M1”<M1#1 O > — M 2 . 

6220 PRINT"WW1Ifl MOSSO <" CP* > 

6230 GOSUB2000 
6240 G < CO — CO — 4 > — L_l_ 

62*50 G0T063 1 0 •• : 

<5300 PP I NT " «*HON MO MOSSE 

OOSUB2000 MCM«1 _ 

P310 OOSUB1000 : RETURM 
7*000 REM —* LEVEL *'*' 

7*0 10 PORK— : 1 TOPO 1 

l%%% fp^l=122SORS=1227GRS-1233 > RNDPEEK< C 
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1 ><>87THEHSPG<K>=SPG<:K>_20 

3035 IF - < S= 1 2330RS» 1 24 1 OR3 = 1 1 59 > RHDPEEK < C 

'03 > RNDPEEK < C 


1 3 > RNDPEEK< C 


1FS <1 1620R3>1 706THENSPG<K > =SPG < K > 


IENSPG<K>=SPG<K> —20 
3040 IF < S=1629GRS=1627GRS=1 

3 >037THEHSPG < K > =SPG 7 pr 7 — 20 
3045 I F < S= 1 639GRS = 1 64 1 ORS= 1 

4 C>87THEHSPG < p' > =SPG *r pr •> —20 

7660 IFLV=4THEH8100 
3S00 0 ET 

30 1 0 
0 

0Ì?K > IsrI^K > iX MT < < S-1 143 > 230 > THENS 

pl^K > IspI7p' > t ì à'" SO== 1 UT < < S- 1 1 e 1 ? .-00 > THENS 

3030 I FPEEK < 3-2? =33TMEMSPG C K ?> =SPG < p- > ■+. 1 
IFPEEK<S+2?—83THEN3PG<Kl=SPG7K?+i 
1 F0E0P' < S-*-00 > -=33THENSPG < K > =. 0 RG < K > -»- 1 

1 p PEEK < S —00 > =83THENSPG (K? = 3RO K ^ 1 

1 FPEEK < S —30 3. »=83THENSPG <K> = S PG < K > -»- 1 

XFPEEKC 3-4-30 > =03THEM3RQ C pr > =SF>0 < K 7 1 

1 FPEEK < 3-*-02 > = s 83THENSPG <K > =SPQ < P" > -t- 1 

1 FPEEK < 3 — 02 > “83THENSPG <r K > =300 ( K ) + 1 

N E X 1 K 
RETURN 

F=-R INT 'TWWWTESTfl 
I O 


3030 
3300 
33 1 0 
3320 
3330 
3940 
3950 
0 1 00 
0300 
3000 
RTO 


PRRTI TU 


CROCE 00 


3005 03= 1 02*4 

3010 0ESTORE FORJ-1TQ23 
3020 RERDSR : 0OKES0 + D .. 3 

3030 0OKE0S, 32 : ROKESF», 100 : 0OKESP. 30 • e>r-,L^i=r 
SR,S4: 0OPCES0, 33 0OKE30.100 ' ' ^OKE 

3035 EORPC —1TO30:MEXT 
3040 03=30 

3050 MEXT 

9060 00= 1 NT < RND < X > 4«2 > + l 

3030 IFF0-1THENFP*="S":FP=8:PPINT' 

RTI TU 0ER PRIMO 

3000 IFFP = 2THENF0*="N" : 00- 
ORTO IO RER 0 RIMO 
3030 POKESP.0P 
3100 0OR-J =1TO3000:MEXT 
3110 RESTORE:RETURM 

DRTR1933.. 1957, 1310, 1030, 1030, 1330 
l9 -■ 13 13, 1 033 , 1 040 , 1 000 
^210 DRTR1500,1521,1502,1002 
323,1303,1004,1044,1004 
3220 DOTO1325,1305,2005 
1 0000 REM ♦*♦* REGOLE 3*>* 

10010 RRIMTCMR*<144> 

10020 0RINT"n «=- t. t 

10030 RRIMT" REGOLE DI GIO CO 

10040 PRIHT"M8M1IL 
OSO REVERSI," 

10050 PRIHT"MCON LE SEGUENTI ECCE2IUNT 
10030 RRIUT" *W1 : QURNBO OIOCRI IOMI 

COMPUTER 

10035 0R I MT " WJ <LIVELLI 

RRE " V0T CHR* < 1 44 > 

10000 RRIMT"W IL COMPUTER 

0* CMR* < 1 44 > 

10005 PRIMT"*J < 0UOI 

DI PRRTIRE 

10000 0RIHT"» 0RIMO O SECOMDO. 

10030 OOSUE12000 
10100 0RINT ,, TWa2 


O I OCO 


KKUDtF'R 

• 20 = 0 r i mt •• smmmo 


1642,1603 


SIMILE RL ERM 


1 —: 


COMTRO IL 
TU SEI SEM 


" SEMPRE •• ; r 
SCEGLIERE COMUMQUE 


QUANDO OIOCR IL SECOHD 


108 


I 1_ GIOCHTOR 


>1 riochtore 

10110 PRIHT"W 6 L I VFLLO <E- > .. 

i CHE "VP*;CHR#<144> 

, ti l 20 PR I NT “ *1 SCEGLIE E 0 E X E PER PRIMO. 


10 130 PRINT" W3 : 

I X 0 M D O 2 ” 

101-40 PRINT"»! 

. iHTRLE 

10 130 PRINT"W 
VERTICALE " 
I01<S0 PRINT"W 

II RESEIMXE- 
10170 E R I M X " 

00 ' . < C I O " 

I01S0 PRINT"» 
i SRRETE 
10100 PRINT"M 


RRT E L RI VOSXEO MOSSO l'IG 
NUMERI• COOPDINRTR ORIZZ 
SEGUITR DRLLR COORDIM0X0 
l_E MOSSE I LLEORL I SflRRNH 
-SE MOM EOXEXE PROSEGUIRE 
SRRfl' RIFIUTRTO SE IHVEC 
IM GRRDO DI MUOVERE> 


10133 GOSUE12000 
I i i200 E E I MX 
OPPURE 

10210 ORIMX"W 
.1 EEE XERMI — ‘ * 
10220 EEIMX"« 

MEI IL- GIOCO" 
10230 ERIMX"W 
I0 MOSSO 
10240 PRINT"» 

MI LIVELLI 
10230 ERIMX"M 


EIJO I E I O I OCORE 
SRLVREE IL GIOCO 
MORE IM SEGUIXO. 


SUD I XO 
SU DISC 
IMXEREO 


WWW 


VUOI E 0 R L O.- ER I M0 DEL 

del COMEUXER. SE GIOCHI 
1 — 3 . 

RXXEMDI SEMERE IL CURSOR 

XEMXE ERIM0 DI E ORE LE 


G I OC . 


10330 ERIMX 
I IMXERMIX— 
l03S0 ERIMX 

XIJE MOSSE" _ 

I 037*0 ERIMX"W«»SPREMI SERZ IO EER 
R EER LE ISXR.” _ _ 

I 1300 EOKE10S4.. 42 : EOKE3333C .■ 3 
I1310 OOSUB12010 
11320 I E0*= " R •• XHEM 1 G00O 
I 1330 PR I NT " 73" 

I t 400 REXURM __ 

, 2000 ER I MX " *=I«rT»fI* , I'*InI**I»I«»TI»rKnUWTSTM»N>Tlimici-d 
cil EREMI 3E02 I O EER COMX I MUORE ” 

12003 EOR J=- 1 XO20 I EEEEK < 1 <SS4 > 

I 684 .. 1 20 
I2006 MEXX 

12002 EOR J=» 1 TO20 : I EREEK < 1 GS4 > 

I 1 684 .. 42 
I200S MEXX 

12010 O*—"" : GEXO* IEO*C>" 

I I 1 2003 

I2020 RETURM 

13000 ERINX'Tl _ 

13010 ERIMX” 

1-5020 E R I M X ' 1 ftOOP R E G O SCRIVI I 
IOCO CHE V0" 

13030 ERIMX" MCORICOXO. " 

13040 I MEUX " W ♦■■■«" .: SM* „ 

1 3030 I E S M * ” " *¥ “ XMEMSM*” " REVERS I G0ME 

13020 OEEM 1.0^3. "0: " -►SM*-»- " S > R " 

I3023 IMEUX*1,SM* 

I 3000 ER I MX ” "1MHHWWCHR I CO 
CHR* < 34 > 

I 3000 IMEUX*1 ^ E 
13100 I MEUX4 1 L V 


O 


42XHEMEOKE 

120XHEMEOK 

" 0MD0*O " R " XHE 

CORICO GIOCO 

MOME DEL G 

5 1 ORME" 
CHR* < 34 > SM* 
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13110 
1 33 1 20 

1 35 1 30 
13 1 -10 
13 1 -13 
13 1 30 
20000 

* • 

20003 

200 1 0 
20020 
20030 
200-10 
20030 
S " J 
20000 
• • 

20070 

murre; 

20030 
20030 
20 1 00 
20 110 
20 1 20 

20 1 30 
20 1 33 
20 1 -10 
20 1 30 

20 i eo 

2 1 000 

2 10 10 
2 1 020 
O UN 
2 1 030 
DESSO 
2 1 0-10 
OM I I— 

2 1 030 
2 1 033 
RRE I 

2 i ose 
2 1 0O0 
2 1 030 
2 1 033 
2 1 030 
2 1 033 
EX < 3-1 
2 1 030 
2 1 035 
2 11 00 
2 1110 
2 11 20 
2 11 30 
2 11 -10 
2 11 50 
30000 
300 1 0 
30020 
30030 
30030 
30000 
30030 
30030 
30 1 00 
30 1 02 


E O R K = 1 XOO0 
1HPUTH1 . G < K > 

M E X X 
OLOSE 1 
3 = 2 

00X030000 

rr i mx ■■ 

2 = 0 

X FCO^CGXHENPRIMX"3 SORXE! 

•• = 00X020020 

I FCO>CG3NI1|_V“6XHEMB$-CP$ 

X FC0>C03MDI— V»6XHEMB1*VP1 

I FCG>C0HMDLVO6THENE*=> " XU M3 X •• 

RR X MXE1 •• V I MXO ^ = I FLV=6XHEMPR I MX " 

RR I MX ■■ D3 •• 3D3 < 00—00 > i " 

RR I MX ” in PREMI SR32 I O RER COMXI 

• • 

3X= " : OEX3X : IE3X=" "XHEM20030 

PRINX"n OR2IOMI 

RR I MX " - 

RR I MX " IJWWWni : MUOVO 0X000 

PRIMX" >!X2 : RIO 1003 L_ " ULX I M3 R3RXIX3 

RRIMX"W3: SRLV3 IL GIOCO SU DISCO" 

RR I MX ” *>1 : R I me " 

3X = ■■ " GEX3X I E 3 X = * * "XHEM2014O 
3 = V31— < 3X > : I E3< 1 OR3>-1XHEM20 1 -10 
OM3GOXO 1 65 .. 30000 -21 000.31 000 
PRIMX”n S3LV3 GIOCO 

RRINX" - 

RR IMX" ««SE VUOI D3RE 3 QUESXO GXOC 

XUO " 

RR I MX " ITHOME . RER R3VORE DIOIX3LO 3 

RRXMX" W3LXRIMEMXI VERR3- S3LV3XO C 

MOME " 

RRIMX" «DX " REVERSX 03ME " . " 

PR I MX " WXKtW< D3XX I X SE MOM VUOI S3LV 

L GlOCO > " 

REM 

TMRUX” W *■■■■" SN* 

IFSMX=" *" XMEMSMX="REVERSI G3ME" 

IFSMX="X”XMEM2O030 
OREM 1 .. 3 .. 3 .. “ 00 = " +SN*+ " S • l-l " 

RR I MX ” nM«WIW53L VO " : OHRX <T 3-V > : 3MX : OH 

> 

RR I MX** 1.3MX 
RR X MXH 1 . R 
RRIMX#1.LV 
EORK = 1 XOO0 
RR I MXH 1 . O < K 
ME XX 
OLOSE 1 
00X020030 
REM 

0 = 31 : 0 = 33 

IRR=1 XHEMO = 03 : 0 = 31 
00X0300 

RORR= 1X030 ^ OX = 00-*-00 
I EO < R ;> = 0XHEM20000 
LL = G<TR> ■ R3 = 0 
OOSUE5000 
GOSUE2000 

I EOO-*-CG»CXXHEMR = E — 1 
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I0 1OS 0^0 : 0”C3-*-^> ' IFO« q 'ìTHFHni — <r*l 

10110 PRINT"PREMI SPALTO PPP CONTIHURREW 


U" 

10120 IFLV=»60R0“P1 

I PROMPERE" 

10 130 0*=>” " : PETR* 

10 1 3S PP X MT "-ITI 

■ t 


THFHPPIHT"TO Q PER 
TFFI*>=" “THFH30 130 


I MT 


<0 1 3<S 

10 1 37 
10 1-40 
10 1 <43 
10 1 46 
<0 1 47 
10 1 30 
30 1 S0 
10 1 7-0 
30 1 30 
3 1 000 


F>F? T MT " 14 

I FR*^ 0 TMF r M30 1 <43 
MEXTR■O0TO20000 
I FLV = 6THFH30 1 30 
X FO-87THFM30 1 <40 
F r P‘ T =- -V ” 

F>F? I MT " ' T T T1" 0 = 0 

I FL V06THFHF: 1 0 

F~F > == 1 ; IFG = 8 1THFM630 

<3OTO<F:<40 

F»F? I MT ** n -1 : FUTI 


Solitario 


L'antico gioco del Solitario e' ....(non vi sembra un 
discorso gia' sentito?) ...stato fedelmente riprodotto in 
questo programma. Attualmente ci sono diversi tipi di 
solitari, che differiscono solo per la loro forma della, 
scacchiera. Questo gioco viene effettuato su un campo 
triangolare, con a disposizione 15 caselle occupate da 14 
pezzi Lo scopo del gioco consiste nel catturare ogni 
pezzo, uno alla volta, rimuovendoli dalla scacchiera in. 
modo tale da lasciare un pezzo soltanto, possibilmente 
rosso ed al centro della base del triangolo (ed e' qui che 
si riconosce il "professionista" del solitario*. 

Una cattura viene effettuata "saltando" un pezzo da una 
posizione adiacente verso una casella vuota! il programma 
permette al giocatore di scegliere inizialmente la 
posizione della casella vuota e della pedms rossa, o in 
alternativa di accettare un posizionamento casuale dei 
pezzi. Le posizioni sono numerate da 1 a 15 ed i numeri 
possono essere visualizzati o meno, a discrezione dei 
giocatore. 


Tutte le mosse sono da digitare nella forma "DA" seguito 
da "A” (due entrate separate, seguite ognuna da RETURN), e 


ili 





il giocatore si dovrà' arrendere quando non potrà'fare 
altro che premere semplicemente RETURN. 


3 F E M ***( F F G - +*-4 3 — SOLITARIO 
-4 GOTO 1 G O 

3 PRIHT"WFREMI SPAZIO QUANDO SEI PRONTO" 
3 C!*= " : GETG» : I FQ*= ” TMEM3 

2 RETIJRH 
1 00 BIMB<13> 

110 EOF T= 1 TO 1 3 : READP : BCJ> “F : NEXT 
130 HATA1442, 1330.1364, 1678,. 1 682 

130 DATA1686,1796,1300.1304.1303 

I- 40 DATA1914, 1313.. 1323.. 1323.. 1330 

1 50 11 = 34272 

130 FOKE332S0..3 

170 POKE5328 1 .. 3 
130 FRIMTOMF»C3> 

1 000 FFIMXCHF* < 147> : T3B <15>"SOLI TF4FIO" 
1010 PR I NT " »**Hi|i|i|i*»»OmO®asCEGL I OF2IOM 

I = — 

1020 FF I UT " KIWI : RANDOA SET-UP 

1030 FFIMT” W2 TUO SET — UF 

10-40 FF I MT “ 103 : I STFU2 I OM I 

1 1 00 GOSIJE6 : I FQ*< " 1 " OFO*> " 3 " TMEM 1 1 00 
1103 IFOT="3"THEN7000 
1110 DIMF»(15) 

1 120 FOF J= 1 TO 13 ^ R(J> = 1 : MEXT 
11 30 IFG*= ”2"TMEM2000 

II- 40 R = RMD ( 0 ) 

11350 A=IMT(RND<1 >XH3) + 1 

1 130 FA < FA > =2 

1170 B = I MT < FMn < 1 > * 1 3 > 4- 1 
1130 IFB=ATHEM1170 
1130 A(B>=0 
1200 GOTO3000 

2000 FEM*f*f EMTEF SET UF W.m 
2003 GOSUB2100 

20 10 INPUT" M5MWFOSIZIOME FOSSO C 1 — 1 3>*■■■ 
■ ^ FA* 

2020 A=VAL(A*) 

2030 I FR< 1 ORA> 1 SORAO I MT C f=t > TMEMFF I MT " V I I 1 
: I ri" ^ GOTO2010 
20-40 R(fA>=2 

2030 PRIMT"W" 

2030 I MFUT ” FOS I 2 I OME V 3 O FA M T E (1-13) •*■■■■ 

* * / £ 

2070 B=VRL(B*) 

2000 I FB = FAOFB< 1 OFB> 1 30FEO I MT < E > TMEMFF I M 
T “ m" : GOT02030 
20S3 FA < B > =0 
2030 GOTO3000 

2100 PFIMT ,, n ,, T0B(18) ,, l" 

2103 FFINT 

2110 FFINTT3E<13>”2 3 

2113 FFINT 

2120 FF I MTT3E < 1 -4 > " <4 3 3 

2123 FRINT 

2130 FFINTT3BC 12) ”7’ 3 3 10 

2133 FFIMT 

2 1-40 FF I MTT3E C 1 0 > ” 1 1 12 SJ1 3BB 1 -4 1 "5 

2130 FETUFM 

3000 REM## G3ME 

3003 PRIMT"rMW«WWMMT v , OLETE I MUMEFI BEL B 
ORBO <S OF M>2" 
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)010 OOSUB6 : IFQ*-"N"THENPRINT' 

'i020 I FQtO " S " THEN30 1 0 
1030 GOSUB2100 
1040 GOSUB5000 

1 1 S0 PP I UT •• WIXWWMMMWMX^PilWMIWWl' 
li SS RRIMT" «"RRIMT" 


:GOTO304 


n60 IHPUT"DR ^■■■1" J 0T 

317*0 IPR1="F"THEN10000 

10 1 pR< 1 ORB> 1 5 THENPR I NT " . 1 J" : *30T03 1 60 

3200 I FPEEK <B ■' n 1 > <>81*RHDPEEK < B < R 1 ^ 08 1 TH 
p:NH* = " 0 " GOTO3 180 

3203 RRIMT _ 

32 10 INPUT" R T ■■■■ 

3230 IFB<1ORB>13THENPRINT"m" : GOTO3210 
3 2 3 0 xppEEK<B<B> > O42THENGOSUB6000 : 00T03 
1 50 

3310 IFPEEK(C>OeÌRNDPEEK<OC>87THENGOSU 

3320 O IRRBS<C —E <R > > ~> 130THEMGOSUB6000 : OOTO 

3330 RV = V I FPEEK < B < R > > =*S 1 TMEMRV—2 
04 . 0 « PnKEC . 42 : POKEC + D .• £3 

3-4 1 O ROKEB (B) .■ PEEK < B < F* > > : ROKRB < S > -*-r» . F>V 

3*120 ROKEB < R > * *12 : POKEBCR)+D.- 0 

3*130 F0RJ=1T0 15 

1440 I Pr *—>B < J "> THEHNEXT 

34S0 I F-T= 1 6THEMSTOR = REM** ERROR IR TRIS 
EOIMT RÉRCHED ^ _ 

3460 R v E '• = R ■" R '■ ^ R'R>=0 R<'.J>=0 

Sili ggS°SÌ = ?o.< E B»™ .* 

Ilil I j SIStSeNPOKEB < J > , ST-: POKEB < J > -*D - 

S030 IFR< J>™2THENPOKEB< * SI : ROKEB < J >-*-D * 

3040 I RR<.J>*=0THEMROKEB< J> > 42 ■ ROKEB <. J > -*-E * 

0 

5050 MEXT 
5060 RETURN 

6000 REM *<*« ILLEGRL MO VE **** 

6010 PRINT"W«a MOSSR IEEEGRLE 
60155 PRINT"»a C ^ER 

6020 GOSUE 6 IFQ*O"C"THEN6020 
6030 PRINT"»*B 
6035 PRINT"M 
6040 RETURN 

7*010 RR I NTCHR* < 147*> TRE < 1 7^ ^ T MTPHR* < 1 

>020 RRIMTTRB<17X : FORJ=lTG5■PRINTCHR*<1 

^030 PRINTCHR*< 1 4*1 > > C HR* < 42 > CHR* < = > ” RRP 

R» < S > ■■ RRRRRESEMTR I PEZZI OIOCRHTI. 

7*050 RR I MTCHR» 0 71.: CHR* C ^3 *■ *SSST E^RERMT 
r<* < S > " RRRRRESEMTR 1 RE2ZI ROS-.I G I OCRNT 

7060 RRIMT" JflW MOSSR ; — SRI— TR UN RE2^G 

7070 R PRINT"RD OMO SERGIO LIBERO* ORMCELL 
RMDO IL 
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R I 


7080 
RET I 
7090 
I . 

V 1 00 
DEVE 
7 1 1 0 
7* 1 20 
RE AL 
7* 1 30 
7- 1 *40 
7 1 "30 
1 0000 
10 1 00 
10 110 
1 0 1 1 3 
10 1 20 
1 0200 
1 02 1 0 
1 0220 
1 0230 
1 0240 
1 O2“30 
1 0260 
R I MT 
1 0270 
T MT " (3 
1 02S0 
1 1 000 


PRIHT"PE2ZO RRESO DALLO SCHERMO- 
PRINT"FINO A CHE MOM RIMANGANO RE22 


UH 


MIGLIORE PUMTEOOIO-. 


13. 

T ORMO 


RR I MT " JflMPER 

RIMAMERE __ ,, . 1M 

RRIMT-UM RE2ZO ROSSO SUL- MLJM - 
PR I HT " Xli •••*159 PREMI SRAZ I O PER 
MENU ” 

GOSUE6 

IFQ*=CHR*C32)THEM1000 
00T07130 

REM END *** 

C —0 : R = 0 : EOR T = 1 TO 1 S 
I R A .r T > <>0THEMC*C+ 1 
I R A < .T > =2THEMR— 1 
MEXT 

RR I MT " asTW C ” S I M I STRA ” 

p p j 

I F03THEMRR I MT " MOM ABBATTERTI • 

I RO=3TMEMRRIMT"DISCRETO" 

IRO=2THEMRRINT" DUOMO" , „ 

IRC=1AMDP=0THEHPPIMT"MOLTO DUOMO 
X RC= 1 AMDR = 1 AMDREEK < B < 1 3 > > OS 1 THEMR 

I FC =1 AMDR =1 AMDREEK < D < 1 3 > 7=S1 THEMRR 
MIO ! ! ! " _ 

RR I MT " MWWWWWWWnWW « 

PRIMTTAD<22> " 5H PER UM MUOVO OI OCO 


110 10 
1 1 020 
111 00 
11110 
111 20 


I—■ p j y 

RR I MTT AD < 2!5 > " 3F PER RI MIRE" 
GOSUB6 : IRQ*="M"THEMRUH 
I RG!$<> " R " THEM 111 00 
RR I MT " 23" ■ END 


Bocce 


Questo programma rappresenta 

‘, • .“-.i •_ - .*! i 


del gioco delle 

bocce 


molte possibi 1 

ita' di 

mod 

desiderate. Il 


per 

giochi entrambi 

le mani) 

. Il 

c 8.su9.1 men t-e su i 

Ia des t ra 

del 

alla sinistra. 

Ogni gioc 

ator 

bocce per avvicinarsi il 

Piu 


una ragionevole simulazione 
socceite">, sebbene abbiate 
icare il gioco. se lo 
due giocatori (o uno che 
'boccino" viene posizionato 
:ampo, mentre la boccia e' 
ha a disposizione quattro 
possibile al boccino. 


Ogni giocatore, 


al suo turno, 


procede nel modo seguente! 


Posiziona 1a boccia 
possibi le andare ne11a 
aver trovato is giusta 


usando i tasti-cursore (non e ! 
parte destra dello schermo). Dopo 
posizione, preme RETURN. 
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Decide l’effetto, importantissimo in questo gioco, grazie 
al comando BIAS: ogni boccia ha un contrappeso interno che 
non le fa seguire un traiettoria diritta. Si può' 
scegliere l’intensità’ dell’effetto (da 1 3 •’ - 

direzione (Destra o Sinistrai. Basterà premere C 
seguito dal desiderato valore d’effetto. 


Decide 1’intensità’ del colpo necessaria per 
il boccino; i valori variano da 1 a 40, e 
digitato il numero desiderato basta premere 
lanciare la boccia. 


r aggi unge r e 
una voi fa 
RETURN per 


Dopo che il primo giocatore ha reai 
il gioco passa al secondo, che segue 
fino a che entrambi hanno terminato 


izzato il primo tiro, 
1’identic a pro c edur a, 
i quattro tentativi a 


loro disposizione. 


Nel programma il boccino e le boc 
sono immobili. Se una boccia 
quest'ultimo non si muove. Se una 
boc eia p r e c eden temente ianciata, 
eliminata. 


ce (una volta lanciate! 
r q 1 p. i s c e il bo c c i no, 

hoc cia to c c a un’a11 ra 
essa viene fermata ed 


Ogni boccia che non supera la meta’ del campo o tocca il 
bordo e’ fuori gioco. 


PRXNTCHR*': 1 -4 



PR 0.44-BOCCE 

1 0 POKE53280.13 ROKE532S 1 -• 

T y ^ OHR* <r. 1 33 > 

20 TL=1024 - n = 3427'2 _ _ 

30 POR T = TLTOTL + 39 POKE J . 1 •=. 0 

nKE.T + 960 , 1 60 POKEJ +960+ D , 13 - MEXJ 

-40 FOR J“TL+40TOTL + ?9 ; POKEJ , 160^POKE. 

i ■ F'HKE t Tì . S* : POKE J + 3B0 + D • 5* : HEXT 

50 POR.T-TL+79TOTL + 9 1 9STEP40 : ROKE J . 1-S0 
. leo : POKEJ + D • POKEJ+l+D.' S> - ME.=-=.T 
M_ 1 : MP = TL + 5+40*M 

%% FOR:t= 1 1039 H:=r = E^-HOMR* < 32 > MEX.T : E*=B4 + 
OHR^0 45? 

100 ’x=IHTCRHD<0*6> : V = I M T < R M D < 1 > 1 S* > • T = T 

I +152+X+40*V 

i i ni POKE J • 81 : POKE J + D - 1 ^ 

12 0 RORE== 1 TQ4 P0RF = 1 T02 : UR»= " 0 " +CHR* •- --3 4 
130 GOSUB2000 

PRINT"TrItI CURSORE-MOV.LHNC. : RETUR 
m=prohto" .; ___ 

1 P.0 POKEMP .. 10 2 : POKEMP + D ■ 11 

130 (3ETX* XFI* = CHRt<13>THEH300 
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i se 
1 se 

> 

see 


mh = 40*«' < I j = r:HRt < 1 T* > >#<MP<TL +880) > 

MH = HN-4e* -.'CI * = CHR* < 1 45 >>>¥■< MP>TL+ 1 20 > 


> > s* < < MS —TU>/40— IM 


DG UN NUM, 


< 


mm = mm-+- < < i *=cmr* < 2S ms — tu > X4e — i kit 

< < MS —TU > /40 K.21>) 

Eie NH=MN-<<I*=OHRT<1? 

tv <r ms —tu > /4e > > - 05 

2se IFMN=0THEN17e 
230 SOKEMS-kD -• 5 
240 MS = MS-*-MM 

250 ooToiee 

300 G0SUB1000 

310 PRINT"BIRS - S.-'D SEGUITO 

1 — 5 > " _ ___ 

330 l_ * = ' ‘ " : GETU* : I FU*<-- 

se 

330 UR*=U*:GOSUB2000 
3-4.0 R^=” '■ : GETR* ■ IER*<" 1 "ORR* 

350 UR=VOU < R* > 

360 IEU*="S" TMEMUR=« —UR 
370 LRt=Ut+R* : GOSUB2000 
-400 GOSUB1000 
-4 1 e SR X MT " SOR 
TURNI 


G BNDU»C 


1 TMEM3 


1 "5 TMEU33e 


DEU COUSO <1—40> SOI 


RE 


420 

430 

4 4 0 
450 
4EO 
500 

5 10 

eoe 

eie 

ese 

ese 


<3^:= "■ ■■ 

-j- .. : GET I * : I s I *=CHR* <13;- THEM500 

IFI4<"0"ORI*>" 9 "THEN430 
S»=”S4+ I * 

GOT04 30 

s=vnu <s t> 

IFS<1ORS>40THEN420 

O == MS 1 : SO = Q : u = o : x=*=e 

EORK = G5TOMS-*-S ■ V = 0 

l_ = l_-*-l : ua = SEEK<Q+D>flND15 _ 

IFU">. 5*SRHDRND< 1 >>. 2THENX=X+1 : I EX —e 

RBS<I _R>TMEMV —40 : X = 0 _ 

e40 I SUO— 1 THEHQ=Q + 40*SGN < UR 
g50 j fuQ = 9ORUQ = 0ORUO = 2THENK* 

THEN690 

cab SOKESQ+B»5 

g/g poKEQ .. 176 + B : SOKEQ+D -• 2*RBS<S 
ese so —o : o=o -*-1 v*sgm < ur > 
ese MEXTK 
see mexts.e 
see gosub 1 eoe 

Sie SRI KIT" ORME OVER SREM I 

030 °OET?* r : I F I *<>CHR* 02 > THEN82e 
S30 RUM 

1 eoe SR I MTCMR* < 1 S > SOR J= 1 T_ „ _ . 

10 10 SSI M T C H R *C 1S > B* SRINTCHR4< 1S > 

1 ose RETURN _ 

3000 SRINTCHR*< 1S > j CHRt< 1S > 

CCE “ B " E I SS : " UR* 

EeIO RETURM 


= MS-*-S : I FLQ09 


= 2 > 


SSR2IO SER 


SRIMT:MEXT 


G I OCST " S .. 


BO 


f p 7 f p p p 7 Q \ B 


r.iJì >L 


sicuro che abbiate 31 s ' vieto questo tipo di 


puzzle 
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su qualche rivista; una qriqlia 15x15 
contenete 10 parole disposte 
verticalmente o diaqonalmente, diri11 


di lettere casuali 
orizzontalmente, 
1 o ai contrario. 


Il programma disegna la. scacchiera e posiziona il cursore 
a sinistra in alto. Usate i tasti-cursore per muovere il 


quadratino lungo la griglia, fino a. trovare 
lettera di una parola nascosta. Quindi premete 
corrispondente al numero della, parola (0-9), e 
posizionato il cursore correttamente, la. parola 


la. prima 

■j 1 * -.^4-.-. 

li laal-U 

se avete 
cambierà' 


Se non riuscite a trovare altre parola, premendo RETURN 
vedrete visualizzarsi tutte le parole presenti sulla 
scacchiera in un colore diverso. 

Le istruzioni DATA (linee 40-50) contengono le dieci 
parole nascoste, e potrete naturalmente cambiarle ogni 
volta che vorrete. State attenti, pero', che il programma 
non comprende parole piu’ lunghe di 15 caratteri. 

Le lettere casuali usate per riempire la griglia sono 
selezionate da una stringa (linea 290) che contiene tutte 
le lettere delle parole nascoste. 


■5 REM**» PRG. 45-CEPCHPflPOLE ?*=*=*< 

10 X=RND<—TI> 

20 POKE532S0 10 : ROKES3231 ., 2 : PRINTCHR*C 1 -A 
7>;CHR*<5>"PLERSE Ì-JFIIT R FEW MOriEWTS" 

-I 0 riRTRCOMMOnORE .. RPPLE 3 I MCI_R I R .. ELECTRON 

OR X C 

■50 DRTREflS I C .. FORTPRH .. RR3CRL_ .. COBOL . EORTH 
I 00 n I Ml-4 < 1 *1 , 1 -4 ■ 

I 10 EOR_T = 0TO3 RERDR» <-J > 

1 20 l_ —l_EM < Rit < J > > — 1 
1 30 SX = X MT < R M ri 1 >*15 > 

I 40 3 , t>= X MT < RHB ■' 1 > * 1 5 > 

1 5:0 DX = I MT < R M ri «r 1 > s*3 >■ — 1 

I 60 DV= I MT C RMn •' 1 > *3 >-• — 1 

130 IFDX=0RNDDV=0THEM150 
1 S0 FX = SX+<L*BX> 

130 FV=SV+CL*DV> 

00 IFFX<0ORFX>14ORFV<0ORFV>14THEM130 
-10 FORK=0TOL 

- 20 I FU < SX-*- C riX*K > .. SV*- < DV*K X > =RSC < M I Ij* < R* 
■ J > .. K-t- 1 .. 1 :■ > THEN240 

- 30 I FW < SX+ < DX#K > .• 3V-F < n V*t K > > O0THEN 1 30 
40 HEXT 

.'50 S < . J .. 1 > =SX 
260 3 < J , 2 X =-3V 
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2—0 d<j, i>=dx 
200 d < ~t 2 > «=dv 

290 R*=R*+R*cJ> 

300 EORK = 0XOL_ 

3 10 L-J < SX-*- < D X *«K ? .. SV-*- < nV*!K > > =RSC < M I D* < A* C -J 

> K-*- 1 , 1 > > 

320 ME XX K. J 

400 FORJ=0TO14 : FORK=0TO14 

4 10 R = I MX < RMD < 1 > **I_EM < R* > > -*- 1 

420 I E L-J < J .. K 9 =0XHEHW < J K > = ASC < M X D* < E* .. R .. 1 

? > 

430 MEXXK .. J 

500 ROKE53230 .- 3 : RR I MXCHR* C 1 47-> 

510 EOEJ = 0XO14 : RRIMXXAB<3> J 

520 EOEK=0XO14 

530 RR I NXCHR# < l-J <" JT .. K > > ^ 

540 MEXXK 

550 I E T< 1 0XHEMRR 1 NTSPC < 3 > .J A* C -J > i 
530 RRXMX:ME XXI 

57-0 RR I MX RR I MX ■■ USR I XASX I CURSORI RER 

MUOVERXI 

5S0 RR I MX RR I MX RREM I MUMERI <0 — 32 QURMD 

O XROVI L_-'I— MIZIO DI UNA PAROLA " 

530 RRIMX:RRIMX"RREMI "REXURM— RER RIMUN 

CIARE“ 

600 CX-=0 : cv = 0 : X I *=■• 000000 ” 

3 10 OEXI* RRIMXCHR* < 13>XAB<23>XI* 

620 OR—1072+CX+40*CV 
630 ROKECR , REEK < CR >4-1 28 

<S 4 0 IEI*=CHR*<13> ORSO *= 10XHEM1000 

650 I E I *>=■ ” 0 " AMD I *<= ” 3 •• XMEMOOSUB300 
660 ROKECR^REEK<CR>—123 

3 7-0 CX —CX-*- <. < I*=CHR*<23> >*CCX<14> > — < < I * = C 
HR* < 1 57- > > W. < CX>0 > > 

330 CV=»CV-*- < < I * = CMR* < 17) >*<CV<14> > — < < I* = C 

HR*< 14 5 > >#<CV>0) > 

330 00X0310 

300 V = AL <- I * > : 0 — 7- 

310 IECX=—S<V.- 2>AMDCV = S<V.- 1 ) AMDA*< V)<>" "X 
HEMGOSUB2000 ■ SC=*=SC-*- 1 : A* C V > == " 

320 REXURM 

1000 ROKECR REEK < CR > — 1 23 
1010 EORV=0XOS 0 = 0 

1020 I E A* <V><>" XHEMOOSUB2000 

1030 MEXX 

1040 RRIMXCHR*<13>"RUMXEOOIO "SC 
1050 EOR J= 1X020 : RRIMX : MEXX EMD 
2000 R = 55344+40*S < V , 1 > -*-S < V .. 2 > 

2010 EORK = 0XOL_EM < A* < V > > — 1 

2020 ROKER-C 

2030 R = R + 40HiD < V , 1 > -*-D C V .. 2 > 

2040 ROKE55335+40#V+Kj C 

2050 MEXX 
2030 REXURM 


E ancora ! 


Ponte pontone 


Anti-aircraft 


118 




Loony lander 
Skyline 

Ponte pontone 


A beneficio degli illetterati, un "pontone" e' una 
struttura temporanea costruita sopra un fiume udendo 
zattere e tronchi. 

Voi ricoprite il ruolo di un pilota d'areoplano, e la 
vostra missione consiste nel far cadere le zattere lungo 
il fiume a formare il pontone. Un aeroplano amico 
cercherà' di aiutarvi e dovrete ad ogni costo evitare di 
colpirlo direttamente con una zattera o accatastando piu' 
di tre zattere una sull'altra, cosa che lo farebbe 
precipitare. 

Il punteggio e'! 1 punto per ogni zattera lanciata nel 
fiume, e -1 punto per ogni zattera lanciata su un'altra 
zattera. Alla fine del gioco, quando o il ponte e' 
completo, o avrete incidentalmente distrutto l'aereo 
amico, la. complessa formula alla linea. 90O vi rivelerà' il 
vost r o pun teggio. 


Note del programma. 


Le linee SO e /0 possono essere alterate 
l'altezza alla quale i due areoplani volano 
fiume. Aumentando B si eviterà' di colpire 
tramite le zattere accatastate 1 'areopla.no amico 
a bassa quota 


variandu 


i— . r, \i — t 1 

c?. li 

Taci Imente 


I due areoplani volano in direzioni oppos 
310), ma se volassero alla stessa 
incontrerebbero sempre nello stesso punto 


te (linee 240 e 
velocita' si 
dello schermo. 







Per questo, la linea 270 provvede affinché' l’aereo 
basso voli approssimativamente ad una velocita' piu' 
del ì 0 % rispetto all'altra. 


piu' 

bassa 


5 REM 5*** PRO.4©— PONTE PONTONE *** 

1© P O K E532S 0 .. 1 4 
20 POKE53231.3 

30 D=542?2 

4© PR I NTCHR* < 1 4 4 > CHRT C 1 4 ~ :i 

50 EOR J = 1 344TO2023 POKE J > 1 60 : POKE T + D . *S - M 
EXT 

60 R“ 1 0 : REM HEIOHT OR LIPPER PLRNE 

70 B = 3 : REM MEIOH T OE LOWER PURNE 

30 Pl=1944-fl*40iP2=Pl+40 

30 Ql=1983—B*40:Q2=Ql-40 

100 P = P 1 0 = 0 1 

110 R=RNn<— TI > 

120 POKE198,0 
130 TIT="000000" 

200 PR I MTOHR* •' 1 3 '■ T I * " SCORE " S CHE* C 1 57 > j 

CMR*<32> i I ET=40THEM300 

210 POKER .■ 32 

220 I EE=0THEHX=P440 

230 GET I * I E I *0 ” " THEME= 1 : MM = 1 37 : NL = 47 : U| 
= 17 : GOSUB1 000 

2-40 P = P-«-l : IEP=P2TMEMP=P1 

250 POKER .. 62 : POKER-*-D .. 0 

200 IEE = 1 THENGOSUB500 IFL=1THEN900 

270 IERHD< 1 > >. 3TMEM200 
30O POKEQ.. 32 : POKEQ + B , 3 
310 0 = 0 —1 : IF0=Q2THENQ = 01 

3 15 X EPEEK < O '■ »230THENX»Q : OOSUB©00 : GOTO90 
0 

320 POKEQ ^ SI : POKEO-*-B . 2 
330 O O T0200 
500 X=X+40 

510 V = PEEK< X > 

520 IFV“81THEHGOSUB600 : RETURN : REM MIT L 

O L-J E R PLRNE 

530 I E V =230TMEMGOSUB7'00 : RETURN ■ REM MIT 
OTMER RSET 

540 IEV=160THENGOSUB300 REM HIT SER 

550 POKEX —40 , 32 : POKEX-40 + B, 3 
5©0 POKEX. 230 = POKEX-»-D .. -4 
570 RETURN 

600 HM = 45 : ML_ = 1 98 : LJ= 1 23 
e10 OOSUB1000 

620 E O R J = 1 T0250 : POKEX-»-D .. INTf RND< 1 > W. 1 5 > - M 

EXT 

630 OOSUB2O00 
640 I— =1 

©50 RETURN 
7^00 3= 3— 1 

T" 1 0 MM= 1 T” : NL = 37 : W = 33 

720 GOSUB1000 : OOSUB200O 

730 E=0 

V40 RETURM 

S00 3=3-*- 1 T = T -*- 1 

S 10 MM = 45 NL'198 : W = 33 

S20 GOSUB1000 GOSUB2000 

330 E=0 

©40 RETURM 
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900 R = C X MT C S r3. 'VRL, < T I ♦ > s* 1 00 >21 00 > — < 300»* < 
T — *»0 > > 

910 PRINTCHRt'" 1 ~ > •• ST.RME OVER" . "«TUFI CLRS 

- IEICRZI OME”R 

920 RR I MXCHR* < 1 T* > " RREM I C*E.PRZI05 PER IJN^ 

RLTRR PflRTITR" 

930 OEX I * I E I »OC;MR* < 32 > THEM930 
9A0 RUM 

1000 ROKE3929E.13 
1010 POKE54277.200 

1020 POKE54278■100 

1030 POKE34273 .• MM 

1040 POKE54272■ME 

1050 POKE54276, I l 

10E0 REXURM 
.-000 POKE54276, 0 

- •010 PDKE34277.0 

•020 POKE54278.0 

2030 RETLIPN 


Anti-aircraft 


Sebbene sia noto a tutti che un movimento grafico scritto 
in BASIC non sia affatto veloce, questo programma crea 
l'illusione di una tale velocita’ da veder muovere uno 
schermo intero alla volta. 

L'obbiettivo e' colpire quanti piu' areoplani nemici e' 
possibile in due minuti, usando il vostro cannone 
anti-aircraft da una base terrestre. Come sempre, il 
tasto-cursore verticale vi muovere.' verso sinistra, quello 
orizzontale verso destra, mentre il tasto RETURN vi fara' 
sparare 

Voi potete "far fuori" molti (ma non tutti) gli aerei 
nemici, ma non potete sparare se il colpo precedente non 
ha ancora raggiunto 1'obbiettivo o il bordo dello schermo. 
Il nemico vi lancia delle bombe costantemente angolate 
verso la vostra postazione, in modo da costringervi ad un 
con tinuo movimen to. 

E per rendere le cose ancora un po' piu' complicate, il 
vostro nemico sara' in grado ogni tanto di rendersi 
invisibile. 
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Note del programma 


Il segreto che permette l'illusione della velocita' in 
questo gioco e' consiste nel fatto che l'azione principale 
si svolge nella meta' dello schermo inferiore: in questo 
modo le bombe nemiche sembrano viaggiare piu' velocemente, 
e sono difficili da evitare. Las parte alta del video e' 
costellata casualmente di stelle (linea. 140), in modo tale 
che i vostri colpi a vuoto dovranno incontrare il bordo 
superiore dello schermo per potervi ridare la possibilità' 
di sparare nuovamente. I punti alle linee 830 e 835 sono 
li’ semplicemente per riposizionare i punti nascosti dai 
messaggi di gioco finito, e la loro posizione non e' 
importante. Gli spazi alle linee 3100-3550 servono a 
cancellare i vari messaggi di istruzione; potete evitare 
questa procedura usando CHR$(14?>, cancellando l'intero 
s c he r mo dopo ogni gio c o. 


■=, rem*** PPG . #47-FIUTI — RIRCRRFT 4* * 4* 

1 0 POKE53280 • e ^ POKE5328 1 > <=. 

20 D =54272 

30 f>R I NTCHR* c! 1 *4 7" > CHPt < 1 SS* 3* 

40 TL=102-4 TR = TL + 39 = EL=TL+•'40#22> : BR = EL + 

39 

5 <3 GOSUB3000 

100 POKETI_ .. 112 POKETR .. 110 = POKEEL -• 109 : F-OK 

EBP , 1 2S __ 

1 1 G* EOR-T = 1 X038 : POKETL+ J .. *E -X : POKEBL + J fc--4 
1 20 X FJ<22THEHPOKETL+40*T , S>3 = POKETR + 40*J 
. 93 

130 MEXT 

1 X-O FOR J = 1 TO 1 OO : R = RHIi < 1 > *400+TL : I E F" E E K < F> 
>»32THENPOKEP, *43 

i so mexx 

i eo xi*=” 000000 " 

170 3 = C* : S1=0 H = 0 : M1=0 

200 r-1 x=20 : MV= 1 

210 M = BL + MX-40*riV 

230 TX = 0 : XV—= I MX < RHD < 1 > 4*3 > -*--4 
240 COL=IHX<RHD<1>#8> 

250 XM — 1 IFPND< 1 >>. S*XMEMXM = 2 
300 POKEM . 102 : POKEM + D .. IO 
310 GOSUB50O 

330 F0R-J= 1 XD38SXEPTM 

340 PRINXXflB<33:* ;MID*<XI4,4, 1 > " - "MID*<TI 

* .. S > .: n“ : XXX = X I X _ 

350 I E X X X > = “ 000200 " THEHPR I MX " 
|i»li»|i>li>iaCfìt1E OVER" : 00X0300 
360 XX = XX-*-XM : I FXX>38XHEMXX = 33 
330 X=BL+XX-40*XV 
330 ROKEX.. SI POKEX + B .COL 
330 GO3UB6O0 
*400 I FBF = OXHEHBF= 1 
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110 X FEF>0THEHGOSUE7nn 

120 POKET.32 POKET+D.3 

130 X FU 1 >HTHEHH = H 1 OOSUB300 : POKEM . 102 PO 

EEM+ri ..io 
-»-10 GOSIJE60O 

-I 30 IFS1>STHENS-S1 00X0230 
•IG0 MEXX 

-130 IFEFM THENGOSUP7O0 ; I3OXO-430 

4S0 00X0230 _ 

-. iti o pp I MX •' i»Ir «IPHrmUTTF: UCCES 

. I : VO X •• J 3 " XMEM : M : 

-.10 REXURN 

, .00 Q = PEEK< 1 5* 3 > GOSUE900 
r .05 I F M F < 1 XHEMG63 

/ . 1 0 X FMF= 1 THEHMF-2 M P — M — 4 0 00X0660 
«15 POKEMP,32 

« :20 MP—MP— 40 IFPEEK<MP>-32XHEH660 
-.30 GOSUE2300 

« .4 0 IFPEEK < MP >—Sl XHEHFORK*1X03: GOSUB2000 
MEXX 

« 45 IFPEEK < MP > — 1 26THEMPOKEMP, 42 : FORK —1X0 
I 5 : MEXX : POKEMP - 32 F — 0 : OOXOS55 

t . 5 0 POKEMP-*-40 - 42 FOPK—1X010 : MEXX : POKEMP + 


-» 0 .. 32 

1.35 GOSUE2600 MP —0 : OOXO<Se5 
« G0 POKEMP - 30 
»:<S5 PEXUPM 

.'00 I PHP— 1 XMEMEF— 2 EX—XX— MX : EV — XV — MV : EP — 
I -*-40 — SOM< HX > 00X0335 


.'0 5 
3 10 
I \ 13; 
3 15 
320 
.'25 
-■ OO 
330 
335 
000 
<305 
0 1 0 
0 15 
020 
I V " 
02 5 
l : 3 0 


POKEEP.32 

BP^BP + 40-SGMf 13X > : 


«PEEK<EP> : X F3 —' 


M 


32 

32 


ii»3: 


COSI- IB2500 

EP — EP — 40 + SGM<DX> I P2=1 02XME1 
X p2= 1 02XMEMPOKEBP .• 3S M 1 — H-*- 1 
SUE1O05 MEXX POKEEP.32 
GOSUE1000 : GO3UB2600 : PEXUPM 
POKEEP.. 126 PEXUPM 
IPMP>0XMEMMP—0 POKEMP■ 

IPEP>0XMEMEP—0 POKEEP« 

IFG —MXMEM010 

(3*= VO X ” : X FH>STHENR*“ " LOP 
pp I MX • 1 MMXMWMWWI»!»***Mì0»'*» 

0ES <S —M > 

POPI—1XO2000 : MEXX 
pp I MX " 

• ■ : S = 0 : M —0 POKEM• 32 
pp I MX " MWXbIKWXW:»'!*® 


1EP = E 
POP K 


P — 4 0 
— 1 XO 


»»»l" 0 * '• 


W I M 


32 


==M— 1 


M —M- 


t 140 SP—1 GOGUE3045 
045 00X01G0 

•O0 I PQ=*3HMDMX> 1 THEHPOK 

1 POKEM.- 102 = POKEM-*-E « 10 
«05 IFQ=2RMDMX<38XHEMPOKEM 

4- 1 : POKEM .. 1 02 : POKEM-*-B « 1 0 
«10 IPQ=1RMDMF=2RMDMP 

■ POKEMP.- 30 : POKEMP.- 32 
>15 IFQc1HNDMF=0THENMF=1 

>20 PEXUPM 
1000 EP—0 

POKEEP.42 
POKEEP —40 .- 42 

X1—PEEK<EP—41> : POKEEP—41 
;«;2 —PEEK < EP — 3 3 > : POKEEP — 39. 42 
POKEEP .- 32 
POKEEP — 40- 32 
POKEEP —41 « XI 


I 005 
10 10 
10 15 
1 O20 
1 025 
1 030 
10 35 


;Bl_ — 4S0XMEMPOK 


42 


MX: —MX 
: MX —M 
EMP « 4 


1 




1040 POKEEP-39,X2 
10-4=; RETURN 
2000 EP=NP 

2003 I EER — 30>TI_TMEMX3 — REEK < ER — 30 > : ROKEER 
— ©0 42 

2010 GOSUB10P3 

20 1 3 IFEP-80>TLTHEHPOKEEP-80, X3 

2020 S 1 = S-*- 1 

2030 RETURN 

2300 P0KE54296,13 

2310 POKE54277.Ì 200 

2320 POKE34278 .. 200 

2330 POKE34273 .. 132 

2 3 4-0 POKE54272.43 

2330 POKE54276.120 

2560 RETURN 

2000 POKE54276,0 

20 10 ROKE34237-.. 0 

2020 POKE34278•0 

2030 RETURN 

3000 PRINT" IT I — FI I RCRRF 

T . " 

30 10 PRINT" ranCrn »IJSH aCIJRSOR SU/GIU'H PER 
LR SXHISTRR" 

30 13 PRINT"*»»JSFI SCURSOR SIN. 2DEST. B RE 
R 1_R DESTRO " 

3020 RR I MT ” »»IJSR 3RETURNB RER SPHRRRE . " 
3030 ROR J =33200TO30203 : ROKEJ.. 3 : MEXT 
3040 PRINT"N>n«»»»»iHRI DUE M I MUT 1 DI 
TEMPO” 

304-3 RR I MT " *©*paWWSDIWI«««Ki»»i*»«i>iRREM I 3RR2 

IO QUANDO PRONTO" 

2:030 GETQ* I FO*OCHR* < 32 > THEN3030 
3033 I FSRO 1 THEN3500 

3 100 RR T MT ” 

3110 RETURN 

3300 RR I NT " SIHRIiOi****MiH 

• > 

33 10 RR I UT " enW 
3320 RR I MT " «>»l 

I • 

3330 RRIMT"W»»« 


3340 RRIMT 
3330 PRINT 



3560 RETURM 


Loony lander 


Quesio programma fu seritio originariamente per il 
Commodore Pei 4032 (il nonno del 64), e non ho fatto altro 
che le strette indispensabili modifiche per permettere al 
programma di girare sul 64. L'indirizzo di schermo e ! 
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stato cambiato (linea 5) e i colon aggiunti (tutti i 
numeri di linea che finiscono con 3 e con 7); per il resto 
il programma e' identico alla versione per il Pet. Lo 
scopo per cui ho incluso questo programma e' 
principalmente quello di farvi rendere conto che il 
Commodore 64 non e' l'unico computer al mondo. C'e' una 

enorme famiglia di computer, ed esistono migliaia di 
proqrami per macchine dal VIC a PET, pronti ad un 
qualsiasi tentativo di adattamento e di modifica. Cercate 
sulle riviste per avere qualche idea. 

Come avrete capito dal titolo, un modello piu' povero di 
"Lunar lander", il concetto di questo gioco non sarà.' mai 
serio totalmente. Infatti questo gioco e' stato scritto 
come un "anti-qame" ed include molte delle caratteristiche 
che si trovano nei giochi d'arcade peggiori. 
Sfortunatamente il gioco non lavora, sembra fermo. 
Ammettete che 1'idea di far atterrare la vostra astronave 
sul terreno sgomberato dalle macerie grazie alle vostre 
bombe e' un po' sciocca. . 

Usate la barra spaziatrice per lanciare una bomba, e 
SHIFT+Spazio per sparare un missile. I missili sono da 
considerarsi come ultima risorsa, e sono sparati 
orizzontalmente dalla navicella! costano 20 punti ad ogni 
lancio, e non possono essere usati se si possiedono meno 
di venti punti Viene calcolato un punto per ogni blocco 
di macerie distrutto con una bomba. 

Un terzo, certamente inferiore, metodo per rimuovere le 
macerie consiste nel precipitare con l'astronave su di un 
blocco. Questo vi eviterà' delle penalità' ma. non ve lo 
raccomando troppo come metodo poiché' avete soltanto 
cinque navicelle a disposizioni con le quali effettuare un 
atterraggio riuscito (nella parte bassa dello schermo, a 
destra). 


I REM#*# RRG . #48- l_OOMV LRHDER 
! PCIKE33280 .. 3 : POKE3328 1 ^ G RR I MTCMFP* < S > 
“5 R = 1 G2<* : D =54272 




10 G* 1 = -4 1 ^ GJ2 = -42 ■ Q3 = 43 : G3-4 = -4-4 : Q5 = 45 : QB = 83 

15 PR I NTCHR* O 47 V’ SCORE= " .i : SC = 0 : PL“5 

20 FOP TS480TO399STEP2 : POKER-»- J - 247 : POKER-»- 
ri-t-JT .. I UT < RMD < 1 > *- 1 5 3 -»- 1 
25 -X«= J— C RND < 1 > *J<500 > 

30 MEXT 
33 BE = 0 

-10 Q=p + 30*f 5-PL> 

*43 POKEQ + B + Q 1 .. 2 : POKEQ + D + Q2- 2 ! POKEQ + D + Q3. 
2 : ROKE0-»-D-t-G-4 -• 2 

43 R0KE0-*-0 1 ..3 1 POKEQ + Q2 6-4 : POKEQ+Q3 -■ 132 — 

RI_ : POKEQ + 04 ,91- ROKEQ+Q5 .■ 6-4 

-4 3 POKEQ+B + Q3 .. 2 

50 PRINTSC.: SPI'' TRE < 6 > ; 

55 IFBF=0THENBP=Q+QB 

60 GETG* I RQ* = OMR* < 32 > TMEMBR-= 1 

<55 XRQ^ = C:HR*< 1 60 5 HNDSO20THENOOSUB2000 

—0 IE B E =1THENGOSUB1000 

7”5 POKEQ+CI1 .. 32 Q = GJ-*-1 

S0 IFREEK < Q+Q5 > =247THEN6000 

05 I FQ + G3* : P + 999THEN7000 

30 G0T043 

1000 ROKEBR.. Gl : POKEBP + B,. 7 : BN = BP + 40 
1010 I RREEK < BN > 0247THEN 1 020 
1013 POKEBN+D..O 

10 15 POKEEN -42 : POKEEN .. 1 63 : ROKEEN -■ -42 : ROKE 
BH . 32 : ROKEBR ■ 32 = BR = Q-^OB : BE = 0 : SC«=SC-«- 1 
1017 POKEBN + D . 0 

1020 ROKEBR• 32 = F'OKEER+D .. 0 : BR*=BN 
1030 I EBR>R-*-333THEMBE = 0 
10-40 RETURN 
2000 MR“Q + GI5+ 1 

2010 I E E E E p' < MR > -2470PMP>P+999THEN2 1 00 

2015 IFMP>P+993THEN2100 

2020 ROKEMR.©1 : POKEMP+D.O 

2030 ROKEMR.32 

20-40 M R = M R -*- 1 =00X02010 

2 1 00 ROKEMR - 42 = ROKEMR , 32 : ROKEMR - -42 = ROKEM 

R . 32 = ROKEMR-+-B. 0 

2110 SC“SC—20 

2120 RETURN 

6000 EORK =1T05 

6005 ROKEQ+O 1 - -42 = ROKEQ + Q2, -42 : POKEQ+Q3. -42 
: POKEQ+Q4 .. -42 : ROKEQ + Q5 .• -42 

6010 POKEG+Q2 - 163 : ROKEQ + Q3- 163 : ROKEQ + Q4, 

1 63 

60 15 POKEQ + Q 1 - 1 63 = ROK.EQ-+CJ2 .. 32 : ROKEQ + Q3, 3 

2 : ROKEG + Q4.32 = ROKEQ + Q5 .. 1 63 

6020 ROKEQ + Q1 .. -42 : POKEQ + Q2 163 : POKEQ+Q3 -• 1 

63 : POKEQ + Q4..163 = ROKEQ + Q3 -■ -42 

6025 POKEQ + Q2 , -42 = POKEQ+D3 .. -42 = ROKEQ + Q4 - -42 

6030 ROKEQ + Q1 .. 32 R0KEQ-«-02 - 32 : POKEQ+Q3 . 32 

: ROKEQ-»-Q-4 - 32 = ROKEQ + G5.32 
6200 MEXT 

6210 RL=RL—1 : IFRL>0THEN33 

6220 RRINT"W«I«HRI FPLLITOI 1 5 R I OMET I R 

ERDUT I PER W 1 1 SOI " RUMT I ! " 

6230 IFSCC20THENRRINT"IK PATETICO ! > 

62-40 GOTO7020 

7+000 RR I MT ” MKMBEN ROTTO » MUMERO DI OTTER 
RRGOX "i 6 —RL 

7+0 10 RR I MT •’ WCOM UMO SCORE DI " ; SC 
3020 PR I MT " )(1SR*"RE — RUM SEB-EMD" 

3030 OETQ*= 

30-40 IFQ*«"R"THENRUM 

3050 IFQ*="E"THENPRIMT"T:EMD 
3060 GOT03030 
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Skyline 


Questo e' "Loony lander", completamente rivisto e 
dedicato al Commodore 64., con sprites, suono e caratteri 
grafici definiti. 

Lo scenario del gioco e' stato un po' modificato; i 
blocchi di macerie ora sono dei grattacieli (l'idea di 
crearvi una pista d'atterraggio distruggendo dei palazzi 
e' ancora piu' ridicola della precedente). I missili sono 
stati del tutto eliminati, ed in ogni caso il programma 
risulta già' essere lungo il doppio del precedente. Usate 
la barra spaziatrice per il lancio delle bombe. 

La linea 108# e' intesa a controllare quando avete vinto 
il gioco. Spero che prima o poi lavori. A me non e' mai 
successo di riuscire a distruggere tutti i palazzi. 


Note del p rogramma 


Le istruzioni REM di questo programma saranno sufficienti 
a guidarvi attraversole sue parti principali. Vi vorrei 
pregare di leggere (se non l'avete già' fatto) 1 capitoli 
inerenti a "Generatore di caratteri", "Sprite-schermo" e 
"And/Qr" PRIMA di digitare il programma Skyline. 

Il carattere (PEEK/POKE codice=0) e' il primo del set- 
di caratteri, e per questo viene definito dagli indirizzi 
dal 1 al una volta che il set di caratteri sia 
stato trasferito dalla ROM alla RAM (linee 10-70). La 
linea SO ridefinisce questo carattere come un elemento dei 
grattacieli, usando i DATA alla linea. 3000. E' da notare 1 
fatto che, sebbene un solo carattere sia stato ridefinito, 
siamo stati costretti a trasferire tutto il set di 
caratteri grafici dalla ROM alla RAM, impedendoci dopo il 
RUN di listare il programma o di usare i normali caratteri 
a 1f a-numerici. 




La linea 7 vi consente di far ripartire il programma 
anc he dopo aver provocato uno STOP senza trasferire il =e ■ 
dei caratteri ogni volta. La linea 20040 inoltre fa 
ripartire il programma alla fine di ogni gioco senza il 
processo di trasferimento del tempo impiegato. 

I due sprites sono definiti alle linee 100-150, usando i 
DATA alle linee ]0000-1@130. Gli ep&zi in queste 
istruzioni DATA non sono importanti, e sono state incluse 
per permettervi di digitare correttamente le linee DATA. 
Ogni linea orizzontale di ogni sprit-e richiede 3 bytes di 
data, cosi' dovreste trovare conveniente digitare 
istruzioni a gruppi di tre, cosi' come ho fatto io. 

Notate che, sebbene uno sprite possa avere una dimensione 
massima di 24x21 bits, non e' sempre necessario creare un 
n-Stto cosi' grande. Lo sprite-bomba, per esempio, non 
supera gli otto bits; per questo e' importante tener contu 
dell’area dello sprite non usata quando si calcola la sua 
posizione. 


La submutine 6000 e' la parte del programma, che calcola 
le posizioni sullo schermo per rispettare le precedenze 
degli sprites. La posizione calcolata sullo schermo e 
sempre quella in alto a sinistra del video, anche se, nel 
rEisri della bomba, nessuno degli stessi oggetti si trova in 
quella posizione. La linea 6060 converte le coordinate x e 
v in indirizzi di schermo e calcola la visione dello 
aprite dal bordo in alto a sini istradino alla Punta del 
razze (+42 bytes di schermo, quando SP=0> o all estremità 
della bomba (+81 bytes di schermo, quando bP=l). 


Per il modo in cui il programma e' stato scritto, e 
impossibile calcolare la collisione tra due sprites u 
razzo e la bomba non vengono in collisione tra ffìa 

passano per lo stesso punto ignorandosi). La collisione 
n-. a entrambi gli sprites ed un carattere, vie,.e 
controllata dalla PEEKC53279'), e dalla copertura di questo 
valore tramite l’uso di AND (linea 1090), che determina 
anche il tipo di sprite interessato. 


* PRO.#49- SKVLINE *** 

POKE53280 , 3 POKE5328 1 , 6 - RR I NTCHR* < 142 5» 

; CMR*C 5 > i _ 

IFPEEK<S2>“48RHDPEEK< 56 > =48THEN80 
1 @ R O K E 5 2 .. 48 POKE36 -■ 48 

•0 POKE36334 , PEEK < 36334 > RND234 

10 ROKE 1 , REEKC 1 > RND25 1 
-»0 FORJ“0TO5 1 1 : POKE12288+J , PEEK < 53248+J > 
HEXT 

-,0 ROKE1 , PEEK <r 1 > OR4 

, .0 POKE56334 , PEEK < 56334 > OR 1 

.'0 ROKE53272 , < PEEK < 53272 > RND240 > + 12 

110 FOR J = 1 2288TO 1 2295 : REHDQ : ROKEJ, G5 : ME XX 
'0 D = 3427’2 

100 S<0>=7*04 SC 1 >=032 

1 10 RORS=«0XO 1 FORJ = 0TO62 
120 RERDQ:ROKES<S)+J.Q 
130 NEXTJ,3 

140 ROKE2040, SC0X-'64 
1350 ROKE204 1 , S< 1 > X64 

1 e0 POKE33269, 0 = REM SRRIXES ORE 
*00 ROKE53287..7 ; REM COLOUR SRR ITE 0 

..*10 ROKE33288; 5 : REM COLOUR SRR I TE 1 

220 ROKE33279,0 

»00 S = 0 ! L «=0 ‘ GOSUBT^OOO 
500 DIMX<33> 

310 T-RMIi C — X I > 

*320 ROR-T“=* 1 TO 1 2 

330 EORK—1 XOS» = X < I MX < RMB < 1 > *40 > > =« 1 : MEXXK 
340 RORK—0X033 

330 I RX < K > — 1 THEHPOKE 1 504-*-40*J-*-K , 0 ROKE15 
04 + D + 401KJ + K. I M X CRMD< 1 > *S > 4-0 


360 MEXXK,X 

<^33 REM MRIN LOOP < ROCKEX SRRIXE> 

1000 P-72 POKE33248,0■POKE33249,P:ROKE53 

264,0 POKE33269-1■ REM ROCKEX SPRIXE OM 

10 10 X —0 = V —P __ 

1020 X-X+B IRX>“233XHENX”0 : POKE33264,REE 
K ■: 33264 > + 1 

1030 IRX>-83RHD< < PEEK 6 33264>PMD1 > — 1 > XMEM 
POKE33264 , PEEKC332645RND2 : X —0 ■ V-V + 8 
1040 POKE33249,X POKE33249,V 

1 0G0 ^ FI *0 •• ’* PMBREEK <53269>-l XMEMQOSUJB20 

?070 X RRERK C 33269 -3THEHOOSUB3000 
1 12100 IRX-80RNDV»240RND< < PEEK < 33264 > RHD 1 > 

—1>XHEM20000 _ 

1 090 IR<PEEK<;33279>RND1 > O 1 XMEM 1 020 

REM ROCKEX MIXS BUILDIMQ 

|_mi _1 t OOSUB700P : POKE33287 , 2 

SP“0■OOSUB6000 
P«P + 0 

POKE332B7 , 7* : POKE33248,0 = POKE33249 , R 
POKE33264 , REEK < 33264>RHD2 
IRL"5XHEN20000 

POKE53279,PEEKC33279)RND2 
00X01010 

REM i SWIXCM OM BOMB SRRIXE 
2000 MM—13R : NL-43:OOSUB6300 
2010 POKE33230,PEEK<33248> 

2020 POKE53231.PEEKC33249> 

2030 POKE53264,PEEK(33264)#3 

20-40 POKES326S» • 3 
2050 3OSUB6370 

2060 REXURM 

2999 REM= MOVE BOMB SRRIXE 


1 099 
1 1 00 
110 
1 20 
1 30 
1 40 
1 50 
1 60 
1 7*0 
■599 
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3000 IFPEEK < 33279 >-2THEN4000 

3010 IFPEEKC33231X248THENPOKE33231 

(33231 >-*-0 : RETURN 


3023 
3030 
3040 
3050 
3333 
4000 
>40 1 0 
4339 
3000 
30 1 0 
=5020 
3333 
6000 
60 1 0 


REM BOMB MITS OROUND 

NH —8 : Nl_— 1 47 : OOSUB6300 
OOSUB3000 
OOSUB6370 : RETURN 
REM : BOMB HITS BUILDING 

POKE53268 * 2 : SP—1 : GOSUB6000 
GOSUB5000 : RETURN 

REM BOMB SPRITE OFF 

POKE33269, 1 : POKE332ee =5 
POKE33264,PEEKCS3264)RND1 
RETURN 

REM : CRLC SCREEM POSITIOM 

MH—22 : NL-227:OOSUB6300 

SX“PEEK < 33240+2*SP ) '■ IF <PEEK<53264)fl 
NDCSP+1>)«SP+lTHENSX“SX+236 
6020 8V-PEEK<33249+2#SP) 

6030 SX“*IMT < <SX — 24>/6> 

6040 SV—IMT <(SV-301/6) 

6060 1 024-*-SX-*-4O4*S , T'-t-42— 39#(èP“l ) : IFS2< 

1024ORSZT2023THEH6090 

6020 IFPEEK < SZ > »0THENS=S+1 : GOSUB7000 
6030 POKESZ.32 

6030 I FSP = 0THENFOR2= 1 T03 = MH —MM-*-Z : OOSUB63 
00 : MEXTZ : GOSUB6370 
6100 GOSUB6370 : RETURN 

REM EXPLOSIOM < ? > 

POKE34236 .. 13 
POKE34222*33 
POKE'54278.240 
POKE34223^MM 
POKE34222^ NL 
POKE"4276.. 17" 

RETURN 
POKE54276,0 
POKET4277■0 
POKE34279,0 
RETURN 

: REM = SCORE 

PR I NTCHR^ < 13 2 SCORE " S = PRINT"RRZZI P 
ERDUT X " L_ 

3010 RETURN 

3333 REM BUI ILDI MO BLOCK 

3000 D8TR233,233, 1 33 . 133 .. 133^ 1 33,233, 233 

3333 REM : POCKET 

10000 DPTFI233 0 •> 0-• 233 ^ 240 .* 0 -• 1 3 .. 233 ^ 0 > 

13.233-240, 254,73,63, 254,73,63 

10010 DRTR13,233,240, 13, 253.. 0> 255,240, 

0 ^ 233^0^0 _ _ 

1 0020 DFITFI0,0,0,0,0,0 ■ 0 • 0 ■ 0,0,0 > 0 > 0 < 0 > 0 > 

0.0 , 0 , 0,0 , 0 , 0 . 0 . 0 . 0.0 - 0 - 0'0 ' 0 ' 0 ' 0 - 0 
10033 = REM BOMB 

10100 BPTP0^ 133^0.- 0^ 133,0, 0 * 126,0, 0^6 

g . 0 ^ 0.24,0, 0 .. 24 .. 0 .. 0 ,60, 0 

10 110 DRTFI0 .. 1 26 ., 0 • 0 • 233 • 0 ^ 0 ■ 233 ■ 0 ^ 0^2 

33 ^ 0 .. 0 .. 1 26 ^ 0 .. 0-1 26 .. 0 

10120 TTF(TFT0^ 60.0, 0.60^0.. 0 .. 24,0. 0 - 24.. 0 

10130 DPTR0,0,0,0,0,0,0,0,0,0,0>0 
13333 REM EMD 


6433 
6300 
65 1 0 
6320 
6330 
6340 
6330 
6360 
6320 
6580 
6330 
6600 
6333 
2000 


20000 H ”=100 

UB6500:MEXT 
20010 PRIMT 
RSTO PER RIOTOCRRE" 
20020 : OETI* : IFI* 

20030 PRINTCHR*(1 4 2 > 
20040 RUN80 


> 1 TO30 ■ MM* 


NL” 1 30 : POR J* 
GGSUB6320 
PRIMT : PRINTTRB< 2 > 


GOS 


PREMI UM X 


' THEM20020 
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APPENDICE 


.Comandi e Istruzioni PHOT 

COMANDI (non possono essere usati nelle linee di 
programma) 

NEW ; Cancella il programma PILOT 
RUN : Fa partire il programma PILOT 

LIST ; Lista sullo schermo il prog. PILOT 

LLIST: Lista sulla stampante il prog. PILOT 

LOAD ! Carica in memoria un prog. PILOT da. disco o nastro 

SAVE : Salva su nastro o disco un prog. PILOT 
BASIC: Ritorna al BASIC 

EDITn: (n=num.linea) lista i numeri di linea, li cancella 
o li re-inserisce 

(Tutti i comandi possono essere digitati totalmente, in 
parte o solo la prima lettera e SHIFT+seconda lettera) 


ISTRUZIONI (possono essere usate solo all'interno di un 


programma) 

Simbolo seguito da: 

T ;(o condizione) 

■J ; (o condizione) 

C ; 

m ; 

A J 

t ;(qualsiasi cosa) 


Seguito da: 

testo 

testo 

cod — colore 

una risposta predeterminata 
niente 

qualsiasi cosa 


Nome : 

Significato: 

TYPE 

Stampa il testo specificato 
sullo schermo. 

JUMP 

Salta ad un determinato numero 
di linea. 
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CLEAR SCREEN 

MATCH 

ANSWER 


Pulisce lo schermo con un 
determinato colore. 

Definisce la corretta risposta 
predeterminata. 

Attende una risposta dall'utente. 


REMARK 


E’ ignorato dall’interprete PILO! 


NOTA. 1 Per la lista dei codici-rnlnrp. 
"COLORE DELLO SFONDO". 


vedere programma 


CONDIZIONI (devono seguire un'istruzione T o J, al poste- 
dei punto e virgola). 


Y ; Esegue l'istruzione solo se la piu' recente 
risposta e’ quella predeterminata. 

N ' Esegue l'istruzione solo se la risposta e' 
diversa da quella predeterminata. 
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I programmatori esperti troveranno in questo libro, programmi che 
illustrano la manipolazione di Bits e Bytes e la gestione dei Bits nell'uso 
di AND e OR. 

Per i programmatori meno esperti è riportato un completo interprete 
PILOT, che permette la programmazione del C64 in un linguaggio ancora 
più semplice del BASIC 

Vi sono ancora programmi che illustrano e facilitano l'uso degli SPRITES, 

dei caratteri ridefiniti e del suono; viene inoltre proposto il programma 

"CARD BOX" un completo ed esauriente DATA BASE 

Per i principianti ce un breve capitolo che introduce le semplici 

ed elementari caratteristiche del C64 e per gli stravaganti c’è un capitolo 

con mille sorprese entusiasmanti. 

Dopo tutto ciò, potreste pensare che la parte principale di questo libro 
sia costituita dai programmi. Sono certamente importanti! 

È però consigliabile che non li digitiate ciecamente ma vi soffermiate 
a chiedervi come e perché una routine esegue un determinato lavoro. 
Con questo libro e con la cassetta in dotazione, nella quale sono 
memorizzati buona parte dei 50 programmi, troverete una risposta 
ad ogni vostro interrogativo. Infatti lo scopo principale di questo libro 
è di mostrarvi come lavorano i programmi, insegnandovi molti segreti 
sulla programmazione del COMMODORE 64. 


Cod. 9150 


L 25.000 

prezzo comprensivo di cassetta 


